Now this is a japh!

[azatoth]

Ok, as you've probably seen, my previous attempts at obfuscation have been severely lacking - mainly due to my level of skill regarding Perl has also been found lacking. I have been reading Programming Perl, and I found the world of  pack(). I think this is a really cool function, and I have used it here to write a japh that actually looks fairly obfuscated. If you don't agree, remember the important thing here is that I learned a new function!

#!/usr/bin/perl

$j;$a;$p;$h;
$j=pack"cccc",106,117,115,116;
$a=pack"ccccccc",97,110,111,116,104,101,114;
$p=pack"cccc",112,101,114,108;
$h=pack"cccccc",104,97,99,107,101,114;
print "$j $a $p $h\n";

Azatoth a.k.a Captain Whiplash

Get YOUR PerlMonks Stagename here!
Want to speak like a Londoner?

[tedv]

Incidently, you can use formatting like "c4" in place of "cccc". This won't change the obfuscation any, except the code is tighter. It's a good habit to be in for coding in general though. By the way, shouldn't it be 'Perl', not 'perl'?

-Ted