$l='
              @a=m
              ap{s
              #\
              S#
              *#
       g;$_=($"x10).$_ 
       }split($/,$l);f 
   or(0..$#a){@b=("")x20;sp  
  lice@b,20-$_,$_,@a[0..$_]; 
 select$q,$q,$q,.2*print"\ec"
  .join"\n",@b,("-"x50),""}' 
    ;$_=$l;s#\s##g;eval