My first obfu:
print join('',@$_),"\n" for map{@$_->[0]}map{[[map{ @$a=(@$a,1);int sin($_*0.1)*8==$b-8?[j,a,p,h] ->[$#$a%4]:' '}@$_],$b++]}([1..80])x16;
phjaphjaph hja ja p ph ja j h a ap ph j j j ph aph a ja j p h a hj p ph a ja j ph ph ap ja ja hj phjaphjaph aphjaph
Back to
Obfuscated Code