my $got = q!<A HREF="JavaScript:AFunction('AA', 'B','0','Project','(\d{3}')">San Francisco (Manager)!;
print $got;