my $inLine = "RPC, rpc #001b, 1987";

$inLine =~ /(#\d+[a-z])/;
my $rpcNum = $1;
print "Found rpc num '$rpcNum' in '$inLine'.\n";

$inLine =~ /\((\d+)\)/;
my $year = $1;
print "Found year '$year' in '$inLine'.\n";