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