#!perl -p s/ +([^wb])|\n/$1/gi