(PS: be gentle; i rarely ever -try- to obfuscate my code hehe)#!/usr/bin/perl -w @$=qw/':&%C:V5R"@``%<&5R;`H`(86YO=&AE<@H`%:G5S=`H`/;map{$i=$i.$_}rever +se split//,unpack('u',"@$");$_=$i;$i="\n";s.\n.\..g;@d=split/\./;map{ +$i=$i.scalar reverse"$_ ";}@d;$i=~s/^\s+(.*)/$1\n/g; print for(split/ +/,$i);
In reply to poor attempt to obfuscate. by strfry()
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |