s//Ktsf/; # now $_ = 'Ktsf'
s/./chr ord($&)-5/e; # $_ = 'Fona'

$\=$/;
# By default $/ is a newline
# A newline is printed after the last print

print
# print $_ and a newline => "Fona\n"