http://www.perlmonks.org?node_id=81370


in reply to (Golf) JAPH?

The following code will print a JAPH, occasionally:
print chr rand 127 for 1..25
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print