Isn't this code more the approach you're after?

use strict;
use warnings;
my $inLine = 'RPC, rpc #001b, (1987)';
$inLine =~ s/\((\d+)\)$//;
my $working = $1;
print $working;
[download]

Sorry for the probably appalling regex, I am only a scribe :)