my $body = qq!<img border="0" src="/images/wink.gif" alt="Wink"> <img border="0" src="/images/smiley.gif" alt="Smiley">!;
print "Inital Value\t $body\n";

$body =~ s/<img(.+?)="Smiley">/:)/g;
print "First Sub\t $body\n";

$body =~ s/<img(.+?)="Wink">/;)/g;
print "Second Sub\t $body\n";