#!/usr/bin/perl
use strict;
use warnings;
#825146

my @line = <DATA>;
for my $line(@line) {
    chomp $line;
    if ( $line =~ m/(<img .*?[^>]+)/  ){
        print  "<g:image_link> " .  $1 . "> </g:image_link>\n";
    } else {
        print "\t nope: $line \n"; # you may want to send this to a different file
    }
}

__DATA__
<p><img src="http://www.mysite/graphics/blue.jpg" alt="Hey" width="100" height="100" ><br>yada yada</p>
<p><img src="../grapics/blue1.gif" alt="Yo" width="200" height="75"></p>
<p>foobar with no img</p>
<blockquote><img width="75" height="75" src="blue2.png"></blockquote>