#!/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";# Blue