fork
                       &&exit ;
                         @_=
                        <DATA>
                          ;$/
                          ='';
                          for
                        ( @_) {
                      s/(\s|\n|#)//g;
                     $/   .=$_;    };
                    $_=   $/;y(a)   ;J;
                   ;y(b)  (r);;      y(c)
                  |u|;    tr(d)       (s);
                          y[e]
                          ;k;;
                         tr(f)
                        [t];y{0}
                       ;c;;  y{1}
                      |A|;    y{2}
                     $a$;      y{3}
                    |n|;        y{4}
                   ;H;;          y{5}

      ;o;;y(6789X);lheP ;;for $"(0..length){sleep 1;
      if(fork){print substr $_,$",1;exit;}}__DATA__
      acdfX135           f78bX9           8b6X420e8b
[download]

Work's only on systems, which can fork.

Have fun ...