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

##</code><code>##

sub generate {
   my $AnaJAPH = uc($_[0]);
   my $JAPH    = uc("Just another Perl hacker,");
   print "$AnaJAPH\n";
   my @Transform;
   for my $i (0..length($JAPH)-1) {
      my $k = index($AnaJAPH, substr($JAPH,$i,1));
      $Transform[$i] = chr(64+$k);
      substr($AnaJAPH,$k,1) = '.';
   }
   my $ret = lc("@Transform");
   $ret =~ s/ //g;
   return $ret;
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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