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

##</code><code>##

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