$name=~s/(\w*?)(\s).*/$1/eig;