$ perl -MO=Deparse fonality.pl
s/\n(?:SEEKING)?/\nPERLqny~%|fsyx%~tz&/ ? $^X =~ /\w+$/ : '???';
s/$&/Ktsf/i;
s/./chr ord($&) - 5;/eg;
$\ = $/;
'???' unless print $_;
fonality.pl syntax OK