Select Code to Download

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

perl -ne'@=[~~@=,$=]=($=[$==rand$.],$_)}{print@='