Select Code to Download

s/\s*<img.*src="[^"]*(?<!\/someimage)\.jpg".*>//gm

s/\s*<img.*src="http:\/\/(?!images\.google\.com\/)[^>]+>//gm

#!/usr/bin/env perl

...

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

Initial markup:
    <img src="http://images.google.com/someimage.jpg" />
...
    <img src="http://anythingelse.com/etc.jpg" />
Modified markup:
    <img src="http://images.google.com/someimage.jpg" />

#!/usr/bin/env perl

...

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

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