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

# $body now contains just :)