This is just another JAPH, not so obfuscated but nice
#!/usr/bin/perl
########################################
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;$unsfl=";;;;iawhrri4nrwayrwyrnca;;;";;;
;$q=$_;;;my$j="Ja\b\000uSa\bt";;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$a="\0An\0OtH\123\beR";#;#;#;#;#;#;#;#;#
$perl="\0\0\0\0\0\0\0\0P\bP;)\b\beRl\0";
$ntn="".""."".""."".""."".""."".""."";#;
$h=qw/HaCk/."";"Is this a Perl Hack???";
"GIVE ME";my$s="\040";#!!!!!!!!!!!!!!!!!
########################################
print$j.$s.$ntn."".$a.$s.$perl.$s.$h;;;#