make me smile

[Len]

#!/usr/bin/perl -w

             seek(DATA,0,0)
          ;@;=<DATA>;push@a,#)
        substr            ($;[$_
      ],11                    ,18)
     for     (10.      ..14     );{
    ;};     substr    ($;[$_     ],+
    11,      +18,      pop       @a)
    &&                            s;
    's           (10..1)          DA
    TA       (10..1)';'join       &&
    pop     \@a[        \$_]     \;#
    for    |,0            ,+0    @a&
     for   ee              k|    +';
      for(                    10..
        14);$_             =join
          "",@;;print;s;smile;
             cry;;__DATA__!

Disclaimer: This program is made from recycled, 
non-clorine-bleached code.

[MeowChow]

I ran this under Textpad, where my script output window replaces and overlaps my code window, so it actually had an animated effect (albeit only two frames worth). Very cute.

Hey, it's even reversable! You could have called it "make me manic depressive" :) ++Len

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

[RMGir]

Excellent!

And ++Meowchow for the manic-depressive line, too :)
--
Mike