Sorry about that, this is the first time that I have used this site and I was not quite sure how to write in the code but I think that I got it now. Yeah, the code that I was trying to convert to a one-liner was

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

Thanks for your help.