$a='"!!!!"!!Hwqv!'.
       Comvjgs.'![dzd(Jikinz';
      sub a{chr(rand(96)+32)}#.
     $|++;$y=32;$q++;$p=5-$q;sub 
   ln{for $f(-2..30){$_=' 'x(20*(1
 -sin($f/12))+1).'#'x(40*sin($f/12.1
)+2*cos(2))."\n";#'ln($f**2)+pack(@z)
 s!(#{$q})#(#{$p})(?=.{10})!$2 $1!g
   ;s&(#{$q})$& $1&g;$a=($a&(chr(2
     +222)x$y))|(($a^$_^(chr($f
       +4))x$y)&(chr(31)x$y))
          ;s@#@&a@eg;$z.=$_
            ;};$z.="$a\n"
           ;$z;};print ln;
[download]

Hope this works for you
UnderMine