CTO, IT consultant, system administrator, webhosting provider, programmer, musician

My entry for the Obfuscated Perl Competition:

#!/usr/bin/perl
#Tinigma 2011 Usage: enigma.pl 123 rng ini "GHWVYYDVPQGEWQWVT"
($n,$o,$p)=map(ord()-65,split//,uc$ARGV[1]);($z,$y,$x)=map(ord
()-65,split//,uc$ARGV[2]);($l,$m,$r)=map$_-1,split//,$ARGV[0];
$t=uc$ARGV[3];$t=~s/[^A-Z]//g;$b=26;$j=0;@N=qw(7 25 11 6 1);@R
=('EKMFLGDQVZNTOWYHXUSPAIBRCJ'x3,'AJDKSIRUXBLHWTMCQGZNPYFVOE'x
3,'BDFHJLCPRTXVZNYEIWGAKMUSQO'x3,'ESOVPZJAYQUIRHXLNFTGKDCMWB'x
3,'VZBRGITYUPSDNHLXAWMJQOFECK'x3,'YRUHQSLDPXNGOKMIEBFZCWVJAT'x
3);@t=split//,$t;for$v(@R){$i=0;for(split//,$v){$c=ord($_)-65;
$F[$j][$i]=$c;$R[$j][$c+$b*int($i/$b)]=$i%$b;$i++}$j++};$i=0;$
f=$y==$F[$m][$N[$m]]?1:0;for(@t){if($f){$y++;$y%=$b;$z++;$z%=$
b;$f=0}if($x==$F[$r][$N[$r]]){$y++;$y%=$b;if($y==$F[$m][$N[$m]
]){$f=1}}$x++;$x%=$b;$e.=chr(($R[$r][$R[$m][$R[$l][$F[5][$F[$l
][$F[$m][$F[$r][ord()-39+$x-$n]-$x+$n+$y-$o]-$y+$o+$z-$p]-$z+$
p]+$z-$p]-$z+$p+$y-$o]-$y+$o+$x-$n]-$x+$n)%$b+65)}print"$e\n";