http://www.perlmonks.org?node_id=296552

This is not really obfud. I used figlet to create banner, then my LZ77 compressor to make it shorter and uglier.

$a=v10.10;{$a.=$_=substr($a,3135-&j-94*&j,&j-33).chr&j;print;redo} sub j{<<'!'=~/./g||exit;ord$&} #!! "!" $!$_(!' -!- 5!, E!(_=!/ `!'|#!# b!)|-!, w!,|G!&|`!8_G "&_J""_-!( ,!# 1!$ (!$ 8!% E!%|I!$_1!(_C!$ "##_{!,/a!$|%!% ,! %`Y"$'<##\8!% '!"|=!&'1!* <!#_y"!|b#"|r!%|}!(\6"$\M"&|y#"(7!' >#%(#$")A") N#&_4$"/U#% B$#\t"$_:"#\{"#,|"#_9!$\A"&\1!'|v"%\ C!)|1!+|f"% #%( u$8 @!? `!_ B$$__$% )&= V&. 7$$ ,$& |%<|K&. k $')c%&_J%&|;&&_/&) @&' R"'_"&&|?&&/R%* N'%'v%(`\'#/j!'/u%0 G% ,|^'*|w%((e&& #)!<j%,|2%&\<%)|\%' `%',V%*\O)"\_%] 5&T l*" !