Not very good, but I'm trying to get the hang of the basics before I get smart :P.
#!/usr/bin/perl # # My First Obfuscated Perl Thing # use big::Letters; $a="ju"; $t="c";$u="a"; $b="st";$c="an"; $v="p";$w="t"; $d="ot";$e="he"; $x="a"; $f="r"; $g="p"; $x="a"; $h="e"; $i="r"; $x="a"; $j="l"; $k="h"; $x="a"; $l="ac";$m="ke"; $x="a"; $p="a"; $q="m"; $x="a";$x="a"; $r="e"; $s="d"; $y="i";$z="n"; $n="r"; $o="n"; $hand="W H I P L A S H\n"; $japh="$a$b $c$d$e$f $g$h$i$j $k$l$m$n $o$p$q$r$s $t$u$v$w$x$y$z"; print "$japh $hand";
As usual your helpful comments are appreciated.

UPDATE : Letters missed out when I cut and pasted it originally, now it all works...

Azatoth a.k.a Captain Whiplash

Get YOUR PerlMonks Stagename here!

Replies are listed 'Best First'.
Re: My First Obfuscated Perl Thing
by kschwab (Vicar) on Jan 22, 2001 at 18:58 UTC
    I hate to nit, but the output seems to be missing a few key letters...perhaps you meant to assign something to $n and $o ?