perl -F'\W+' -ane 'print join $/,@F' in >> out