I love the Perl language. It can do so much with so little. Of course, that also means it can be a complete obfuscated nightmare.
Here is one example that I developed years ago when I was particularly bored. Maybe someday I'll explain what it is doing, how it is doing it, or why I decided to create it. Maybe.
#!/usr/bin/perl
use strict;use warnings;
$"=$/="";$_=<DATA>;s/\W//mg;$a=4;$b=@_;foreach$0(grep{defined$_}map{(($b&=(1<<4-$a)-1)<<=4)|=$_;$a++;$a%=5;$a?$b>>4-$a:undef}map{unpack'c',pack'h',$_}split//){push@_,chr((!($0^10)||($0|=32)&&!($0&31))&&$0||$0&16&&($0%2)&&!($0&14&&$0&14^12)&&($0^96)-14||!(($0>>1)+1^32)&&$0&123||!($0>>3^7)&&($0&7)-1>0&&($0&47)+2||$0|64)}@_=split/^/,"@_";for($_=$[;$_<0xc;){chomp@_[$[,++$_];print@_[$[,$_,13,14,28-$_-($_-1&&1)..28]}
__END__
eb8144140a32653a2a651bdc455109911467d654428c93510a9a71442a65b15d4428a93a2885392e2d10aa15d4428ac2d8aea2154b9586a2140207207981144933a3433d29b9052552818fb14070d8a0a3c0d2f954b959628092ab5a594c04955ad4b8fa51585b15c08260594c104c12e3e9542b80c7c8930076c2860971f4a725c50302449660205c34b8fa515274500d0a4930076d4b16971f4a996c5702770ba600ee774b5a971f4a9a700394b32803b6072971f4a326c501dec2024971e7a519f5900616312e380499127a5511229406915c34010574f4aa5de0a56546148fb167a505c4504100ca92490e5025c0082050c814914bc528