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

Ok, i've been hanging out here almost two months, and I guess sooner or later I have to do a JAPH obfu, right? Is there any tradition of writing these when there's more pressing, productive things to do? If so, I've been true to tradition...
#!/usr/bin/perl -w use strict;my% g = ('D\J{N]QRR\&S.HAy7z9 r['=>' => got perl ? <= ');my@ o = keys%g;my@ t = split"",(shift@o);my$ p = pack'c',74;my$ e = sub{while(@_){my$ r = shift;$!=unpack'c',$r;my$ l = shift;$p.=substr$!,(unpack'c',$l)/10, (unpack'c',$l)%10;}}; &$e(@t);print$p,$/;

Despite use strict, it may not work on versions of perl with drastically different error messages ;)

Update: As chipmunk has pointed out, this code relies on system error messages, not Perl error messages. As a result, it will only run properly on a FreeBSD 4.x system. (By pure luck, it's been tested on 4.1 and 4.3, but only because I happened to upgrade my system between printing out the error messages and actually writing the code.)

So consider my first JAPH a real learning experience, and a bit more obfuscated than planned - even when it runs, one does not know what it did ;-)

Maybe I should have called it "Got FreeBSD?"

Thanks, chipmunk!