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