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

a quick obfus, in reverse
#!/usr/bin/perl -w use strict; eval join ' ',reverse qw; //\; }split \;$_ tr/[a-mn-z]/[n-za-m]/ map{ reverse for print; if (($_ = 'erxpnu yerc erugban gfhw') ne '');