Hope you enjoy this one. Comments are expressly welcome.#!/usr/bin/perl -T open tr;JAPH;#;;$_=q%:"#0.;527=+8.*4,-.=;k[+, 1%;$%=q;71c;;$;=<tr>;$/ +=q; /=$;;@,=split q,,,<0>;;print map{uc$,[ord($_)-($%%=40)]}split#\s(?:_)# +,$; q++;#;;print "just another perl hacker @ http://www.perlmonks.org";# B +lue
=Blue
...you might be eaten by a grue...
|
|---|