Fix live streams for channels with numeral in PID

Closes #165

Author: dinkypumpkin

get_iplayer

@@ -5448,7 +5448,7 @@ sub get_verpids {
 		# URL decode url
 		$url = main::url_decode( $url );
 	# iPlayer LiveTV
-	} elsif ( $prog->{type} =~ 'live' && $prog->{pid} =~ /^[a-z_]+$/) {
+	} elsif ( $prog->{type} =~ 'live' && $prog->{pid} =~ /^(bbc_|cb)/i) {
 		my ($verpid, $version);
 		my $hls_pid_map;
 		if ( $prog->{type} eq 'livetv' ) {