my $body = qq!<img border="0" src="/images/wink.gif" alt="Wink"> <img border="0" src="/images/smiley.gif" alt="Smiley">!;

$body =~ s/<img(.+?)="Smiley">/:)/g;
$body =~ s/<img(.+?)="Wink">/;)/g;

print "$body\n";

# Actual output
:)

# Desired output
;)
:)