$name=~s/(\w+)(\s+)(\w+)/$1/ig;
print "$name\n";