Select Code to Download

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

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

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