# line noise by kilinrax # # another read and run dissection by tachyon # # I needed to rearrange the line breaks and add # a space between the = and r on at the begining # of the third line to make this run as shown below use strict; $\=$/;$_=q&&;s()/#?=>$":}\~>\\!;/;$/=~ s~~s{;};$")!{$"\\:<_!;~e;y{%*-.$'&(#-<}$@-~$s;{y(;-?) = r-{)!=s;y$T-_$`-|$;y}{-~}l-\}};s{!}$Y<$g&&redo}print; # this is an awesome obfu, here is a quick dissect # first the exact original code with some whitespace use strict; $\=$/; $_=q&&; s()/#?=>$":}\~>\\!;/; $/ =~ s~~s{;};$")!{$"\\:<_!;~e; y{%*-.$'&(#-<}$@-~$s; { y(;-?)= r-{)!=s; y$T-_$`-|$; y}{-~}l-\}}; s{!}$Y<$g && redo } print; # make it a bit more readable by using # the usual / for our s and tr (y); also the # bareblock rearranged, and now executes only once # as s/!/Y$":}\~>\\!;/; $/ =~ s//s{;};$")!{$"\\:<_!;/e; tr/%*-.$'&(#-$":}\~>\\!;/; print "1: $_"; s/;/$")!{$"\\:<_!/; print "2: $_"; tr/%*-.$'&(#-