#!/usr/bin/perl

use warnings;
use strict;

my @names=("Sam Adams","Bud weiser","Ice House");
my ($name, $temp);

foreach $name (@names){

        $temp=$name;
        $temp=~s/(\w)(\s)(\w)/$1 . "+" . $2 . "+" . $3/eig;
        print "$temp\n";

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

}
print "\n";
__END__


##</code><code>##

Sam+ +Adams
Samdams
Bud+ +weiser
Budeiser
Ice+ +House
Iceouse

##</code><code>##

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