for(<>){$o=$_;@_=();s%.%s/(.)(.*)/\2\1/;push@_,$_%eg;@_=sort@_;"@_"=~$o;print$`=~y/ //,' ',(join$/,@_)=~/.$/mg,$/}