$string =~ s/\s+(\w.*)/$1/;