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

##</code><code>##

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

##</code><code>##

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