in reply to Transforming Text to Image!!

small suggestion?

s/([!?])+$/$1/;

:)

In Section Seekers of Perl Wisdom