{ 
     while(/A\s+HREF\s*=\s*"(^"+)"/ig)
     {
          $foo{$1}=1;
     }
}
 
for(keys %foo)
{
     print "\n";
}