Reiterating an old solution:

perl -ne'splice@l,rand$.,0,$_}{print@l'
[download]

or more readably:

my @lines;
splice @lines, rand $., 0, $_ while <>;
print @lines;
[download]

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