$body =~ ss<img(.+?)="Wink">s;)sg;
$body =~ s$<img(.+?)="Wink">$;)$g;
$body =~ s,<img(.+?)="Wink">,;),g;
$body =~ s[<img(.+?)="Wink">]\;)\g;
$body =~ s}<img(.+?)="Wink">}{;)}g;
$body =~ s&<img(.+?)="Wink">&;)&g;
# .. ad nauseam