Select Code to Download

open FILE,"filename";
read FILE,$file,100000;
close FILE;

@lines = split(/\<IMG/,$file);

$newfile = shift @lines;

foreach $line (@lines) {
  $pos = index($line,'>');
...
  $tag =~ s/SRC\=\"(.*?)\"/SRC\=\"$newurls{$1}\"/gi;
  $newfile .= $tag . $restofline . "\n";
}

print $newfile;