my $inLine= "RPC, rpc #001b, (1987)";
$inLine=~/\((\d+)\)/;
print $1

##</code><code>##

my $inLine= "RPC, rpc #001b, (1987)";
($itm, $date)= split /[()]/, $inLine;
print $date;