Help for this page
$name=~s/(\w*?)(\s).*/$1/eig;
$name=~s/(\w+)(\s)(\w+)/$1/g;
$name=~s/(\w+)\s\w+/$1/g;