Or if he really wants the "remainder":

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

.. assuming $inline is the only line of data...