$/=$*,$|=$=,@ARGV=$0,($_=chop($*=<>))=~m&#&&&{$*=$,},truncate$0,length 
$*;$*||exit,y)J-y)G-v),print,exec'perl',,,$0#,uhnfdk ouhS uhkwrqd wvxM

$a='JAPH'; print map "\$a='$a'; $_, q($_)", q(print map "\$a='$a';$_, q($_)")

print map{lc substr' aCehJklnopRStUzbcE980F#)r',hex$_,do{1;}}split//,qg5ecd0189d43b0a3b7041263bg

use Lingua::Romana::Perligata; 
meis novis da XLIV tum X.  kcahere sic face  cis rere sic  da loco huic his 
decapitamentum. meo novo. dum hoc fac sic praecidementum huic da meo nexto. 
cum novum tum nextum  serementum novo da  cis novum redde  cis tsuje queque 
htonaeque. quere sic  scribe indementum XXXII egresso  cis tsujere sic face 
unum cis htonaere sic face cis facere  sic his decapitamentum vel nullum da 
opto meo.  textis meis da  unum memoramenta.  biguttam tum tertium textorum 
scindementa nomis meis da.  nisi optum tum unum aequalitam  fac sic egresso 
cum secundum  nomorum rementum  tum er scribe.  sex redde cis  cum secundum 
nomorum rementum ampliamenta  scribe egresso cis lrepere  sic face unum cis 
ianitorem queque lrepeque.  nonum queque kcaheque. per quisque in novis fac 
sic scribe indementum  hoc egresso cis  adnota lingua romana perligata  mhx