Having just dove deeper in to obfus stuff, let me see if I've got this one..

# Not an issue.. normal stuff
@a=qw(kvtu bopuifs qfsm ibdlfs);

# Shift each letter down one.
foreach(@a){
   $_=~tr/b-y/a-z/;
}

# Print out the JAPH
for(@a){
   print "@a\n";

   # Put the first element on the end of @a
   $a=shift(@a);
   push(@a,$a);
} # Later, rinse, repeat
[download]

Prints out a nice 4 line block... Doesnt seem too hard, I'm just in the mood to look at obfus'd stuff in more detail today. ;)

_14k4 - perlmonks@poorheart.com (www.poorheart.com)