Help for this page
$name=~s/(\w+)(\s+)(\w+)/$1/ig; print "$name\n";
Sam+ +Adams Sam Bud+ +weiser Bud Ice+ +House Ice