my $body = 'img wink img smiley';
$body =~ s/img.+?smiley/:)/;

# $body now contains just :)


##</code><code>##


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