Select Code to Download

123456789 123456789 123456789 123456789 12345
perl -e'@l=<>;print splice@l,rand@l,1while@l'

perl -e'print splice@l,rand@l,1for@l=<>'