#!perl -p
map{$_="@$_"while@$_}($a,$;)=/\w* /g;$\=$',@$a=$;if$a-$;}{