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

##</code><code>##

Sam+ +Adams
Sam
Bud+ +weiser
Bud
Ice+ +House
Ice