use LWP::Simple;
my $url = 'www.website.com';
my $content = get($url);
my ($number) = $content =~ /'(\d{3})'\)">San Francisco (Manager)/;

print "$number\n";
##</code><code>##

 <A HREF="JavaScript:AFunction('AA', 'B','0','Project','113')">
San Francisco (Manager)
##</code><code>##

my ($number) = $content =~ /'(\d{3})'\)">\nSan Francisco (Manager)/;
##</code><code>##

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