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