my $inLine= "RPC, rpc #001b, (1987)";
$inLine =~ /([^(]+)\((\d+)\)/;
my ($remainder, $date) = ($1, $2);