$ 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

##</code><code>##

s;
(?:SEEKING)?;
PERLqny~%|fsyx%~tz&;

##</code><code>##

?$^X=~m.\w+$.:DEVELOPERS;

##</code><code>##

s"$&"Ktsf"i;

##</code><code>##

s^.^chr ord($&)-5^eg

##</code><code>##

$\=$/

##</code><code>##

print||" ;) "