Here's a one-liner that will do much the same thing:

perl -pale '$_=join"\t",@F[2,0,1]'
[download]

Or, to match the behaviour more closely:

perl -pale '$_=join"\t",@F[2,0,1];@F^3&&last' >> OUTFILE INFILE
[download]

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