Select Code to Download

my $got = q!<A HREF="JavaScript:AFunction('AA', 'B','0','Project','113
+')">San Francisco (Manager)!;
$got =~ /'(\d{3})'\)">San Francisco \(Manager\)/;
my $number = $1;

print $number;