#!perl -pl
s/ /"$~>$`or\$~=\$`"=~y, ,+,r/geer,$_="$' $`"for($_)x50;$~-=$_=$~