#!/usr/bin/perl -w
$_=" tfmsad";@c1=(80,73,78,65
);@c2=(105,58,1,-23,15,15);$r
= ""; $e=0; y/b-y/a-z/; print 
ucfirst (reverse ());foreach(
@c1){if($_ eq 80){$r.=chr();}
else{$r.=lc(chr());}}$r.=" ".
substr ($r,1,1). " "; foreach
(@c2){$e=$e+$_;$r.=chr(oct($e
));}print $r."\n";
-------------
echo "tcd.kqtdkkar@93180rh"|tr a-y b-z|tr b a|rev
-------------
perl -e '$_="p n \n" ^" i a";print ucfirst(lc)'