#!/usr/bin/perl -w
use strict;


my $regex = q{<A HREF="JavaScript:AFunction('AA', 'B','0','Project','456')">
San Jose (People)
};
$regex =~ /'(\d{3})'\)">\n(.*?) (\(.*\))/;

my $number = $1;
my $area = $2;
my $position = $3;


print $number;
print $area;
print $position;