Hi, Here is my first try in OOP "Obfuscated Oriented Perl" :) This is the "packed" version, and I also made a more aesthetic "unpacked" version in my "scratchpad".

#(export LINES;export COLUMNS;perl llamatron.pl)
$"=($ENV{COLUMNS}||"80")-9;$;=($ENV{LINES}||"24"
)-7;$#=`clear`;$%=$==0;$*=$,=$=^1;while(<DATA>){
s/ //g;$_=unpack"u*",$_;split/[O0]/;$_[0]=~y
/1234/  _-/;$_[1]=~y/5678/  _-/;@{$ARGV[0]}[$.]=
$_[0];@{$ARGV[2]}[$.]=$_[1];$_[0]=~y/`'\\\/
/'`\/\\/;$_[1]=~y/`'\\\//'`\/\\/;@{$ARGV[1]}[$.]
=join("",reverse(split(/(.)/,$_[0])));@{$ARGV[3]
}[$.]=join("",reverse(split(/(.)/,$_[1])));}@INC
= qw(2 2 2 2 0 0 0 0);$-=0;for(;;){print$#."\n"x
$%;$/=shift@INC;foreach(@{$ARGV[$/+$-]}){print
" "x$=."$_\n";}push@INC,$/;$%+=$*;$=+=$,;$*=$%>=
$;?-1:$*;$*=$%<=0?1:$*;$,=$=>=$"?-1:$,;$,=$=<=0?
1:$,;$-=$,==-1?1:0;select undef,undef,undef,1/10
;}
__DATA__
0,  3)  ?,  C)  ?,  4\  U-  E\  V-  5\  U,  `` `
0,  B\  Q7  "\  T8  #`  U+  S9  <+  SA  @3  P` `
0+  S,  S,  R\  R,  4\  O-  S<  W+  S8  U,  `` `
0?  %P  O?  #$  R,  3`  O?  'Q  <-  C4  V3  P` `
08  &!  @8  #(  Q,  D]  @8  &`  V8  #8  U,  `` `
[download]