Modifying only the second portion

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

\w looks for just one word-character. You need look for one or more

with the fix output -

Sam+ +Adams
Sam
Bud+ +weiser
Bud
Ice+ +House
Ice
[download]

cheers

SK