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

print "$number\n";