while(<>)
{
  while(/A\s+HREF\s*=\s*"([^"]+)"/ig){
      $foo{$1}=1;
  }
}
for(keys %foo){
print "<img src=\"$_\"><br>\n";
}