Select Code to Download

sub z{$_[13]^=' ';ucfirst("@_\n");}print z(map{(split//,
   'alan eject porker thrush,'
)[$_]}map{ord(uc($_)^'@')}split//,
'fuvid@clrsemjkgpaqwbhnotx' );

sub generate {
   my $AnaJAPH = uc($_[0]);
...
   $ret =~ s/ //g;
   return $ret;
}

print generate('Corpulent jerk heat rash,') . "\n";

sub z{$_[13]^=' ';ucfirst("@_\n");}print z(map{(split//,
   'corpulent jerk heat rash,'
)[$_]}map{ord(uc($_)^'@')}split//,
'jdvhiqgarofbnckleswu@mptx');

sub z{$_[13]^=' ';ucfirst("@_\n");}print z(map{(split//,
   'joker panel search truth'
)[$_]}map{ord(uc($_)^'@')}split//,
'@ulseghavqcdkfiojrwnpbmtx');