my @words = qw/Just another Perl hacker,/;
print join ' ..ubbada.. ', @words, $/;

__END__
Just ..ubbada.. another ..ubbada.. Perl ..ubbada.. hacker, ..ubbada..