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