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