$ perl -le'
print "1: $_";
s/(?:SEEKING)?/PERLqny~%|fsyx%~tz&/ ? $^X =~ /\w+$/ : DEVELOPERS;
print "2: $_"; 
print "3: $&";
s/$&/Ktsf/i;
print "4: $_";             
s/./ chr ord( $& ) - 5 /eg;
print "5: $_";
$\ = $/;
print || " ;) "
'
1: 
2: PERLqny~%|fsyx%~tz&
3: perl
4: Ktsfqny~%|fsyx%~tz&
5: Fonality wants you!
Fonality wants you!
[download]