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

##</code><code>##

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