open FH,'filename' or die "Failed to open filename - $!";
while (<FH>) {
  s/<IMG\s+([^>]+)>//ig;
  print;
}