$word=~s/("\S+|\S+|")\s*/$1/g;