my ($number)  =~ /'(\d{3})'\)">San Francisco (Manager)/;

print "$number";