$text =~ s/(.+\s)\S*\.\S*/$1/g;