$name=~s/(\w+)\s\w+/$1/g;