Select Code to Download

use HTML::TokeParser::Simple 2.1;
my $parser   = HTML::TokeParser::Simple->new($html_file);
...
open HTML, ">", $new_html_doc or die "Cannot open ($new_html_doc) for 
+writing: $!";
print HTML $html;
close HTML;

# before <img SRC=foo.jpg   height='13' width=14   ALT="SOME alt Value
+" />
# after  <img src="foo.jpg" height="13" width="14" alt="SOME alt Value
+" />