I'm not sure if you need to match the number to the unique part or not. The following splits your lines into 3 variables so that might help:

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


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

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


print $number;
print $area;
print $position;
[download]