#!/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.
[download]