use IPC::Open3;open3*0,*1,*2,$^X,"-we$&$1=>"and$_.=0,<2>||$_++while Idiigdigdsgisdigggss0001issigdigidsdi =~/.(?=(.))/g;print pack'b*',$_; [download]
This obfu no longer works starting from perl 5.20 and 5.19.2. See Re: How to make warnings disappear and http://www.nntp.perl.org/group/perl.perl5.porters/2013/07/msg204205.html .
See also How to make warnings disappear.
www.com | www.net | www.org
No recent polls found