or download this
my $msg = q{This, is, an, example. Keep $2.50, 1,500, and 192.168.1.1.
+
I want to work this thing out a LITTEL!!!!L BITH!!!!! MORE@@@@@@ with
some,.unhapp.yword,combinations.and , a little .. bit of,,
confusing,text hopefully @#@#@#@%#$57)#$*(#&)(*$ it will @#@][] work.}
+;