Is simple. Just change the dot "." to "[^>]"

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

Graciliano M. P.
"The creativity is the expression of the liberty".