#!/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;
[download]

Just Another JAPH - uses a bit of translation (rot-13) and a couple of substitutions to unscramble this mess into a JAPH.