Select Code to Download

#!/usr/bin/env perl

...

print "Modified markup:\n";
print $html_fragment;

Initial markup:
    <img src="http://images.google.com/someimage.jpg" />
...
    <img src="http://images.google.com/NOTsomeimage.jpg" />
    <img src="http://pictures.google.com/someimage.jpg" />
    <img src="http://google.com/someimage.jpg" />