Just Another JAPH - uses a bit of translation (rot-13) and a couple of substitutions to unscramble this mess into a JAPH.#!/usr/bin/perl $a='WhfgBNabgureBCreyBBBBBBBBBBBUnpxreBBBBBBBBBBBBB WhfgBNabgureBCreyBBBBBBUnpxBBBBBBBreBWXThfgTTBB BNabgureBCTBBBBBBBreyBUTBBBBnpxreBBBBBWhfgBBBBB BBNabgXTreTTBBCreyTBUnpxTBBBBBBBreBWhTBBBBBfgBN aBBBBbgurTBeBCrXTeyTTBUnpxTBBreBWTBBBBBBBhfgBNT BBBBBabgurBBBBeBCrTBeyBUXTnpxTTreBWTBBBhfgTBBBB BBBNabguTBBBBBreBCrBBBBeyBUTBnpxrXTeBWTThfgBNab gureBCreTBBBBBBByBUnpxreBWhfgBNabgBBBBBureBCrey BUnpxreXTWhfTTgBNabgureBCreyBTBBBBBBBUnpxreBWhf gTBBBBBBNabgureBCreyBUnXTpxrTTeBWTBBBBhfgTBBBBB BBNabguTTBBBBBBreBCTBreyXTUnpTTxreTBBBBWhfTBBBB BBBgBNabTTBBBBBBgureTBCreyXUnpTxreBTTWhfTBBBBgB NTBBBBBBBabgurTTBBBBBBeBCrTBeyBUXnpxreBWhfgBTTN abTBBBBgurTBBBBBBBeBCreBBBTTBBBBBByBUnTBpxreXBW hfgBNabTTgureTBBBBCreTBBBBBBByBUnpTTBBBBBBxreTB WhfgX'; $a=~s/\s//g;$a=~s/\n//g;$a=~s/X/\n/g;$a=~s/B/\x20/g; $a=~s/T/\x9/g;$a=~tr/A-Za-z/N-ZA-Mn-za-m/;print $a;
In reply to Just Another JAPH by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |