Second time :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"
Finaly :use strict; print map { chr ord($_) - 5 } ('K', 't', 's', 'f'); print "\n";
In reply to Re: Obfusicated code
by poolpi
in thread Obfusicated code
by boojeboy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |