Select Code to Download

sub scrapTag  # removes image tags from HTML document
{
  while($htmlLines[$i] =~ m/<IMG\s+([^>]+)>/ig)

sub scrapTag {
    foreach my $line (@htmlLines) {
...
       $line =~ s/<IMG\s+([^>]+)>//ig;
    }
}