#!/usr/local/bin/perl -w

                    my $mo
                ;undef$/;seek
               DATA,0    ,0;my
                 $m0=<DATA>;

       use strict
      ;$#?     1:($_         =`clear`);
     while      ($^O)      {for       my
     $ii           (0.. 20){          $mo
    =$m0             ;$mo               =~
    s&                ([^               \s
    \n                                  ]+
    |([                                 \t]
     ()                J??              )+
      )&                              chr
      (vec                           ($1,
       rand                       length
         $1,8                      ))x(
          length                 ($1)
            *sin              (3.14
             *$ii           /20))
              &mgex       ,print
                $_       ,$mo
                 ;s y/   y/y
                   &&    $*;
                    select
                     $/,$/
                     ,$/,
                     .1
                    ;
                   }
                 }
        __DATA__
[download]