$idx = index($string, '(') + 1;
$num = substr($string, $idx, length($string) - $idx - 1);

##</code><code>##

($num) = $string =~ /\((\d+)\)/;

# Plus the year

($year, $num) = $string =~ /(\d+)[^(]*\((\d+)\)/;