print join(/:/,"dog","day","afternoon");

What zdog didn't mention is that join() doesn't take a regular expression as its first argument like split() does. Instead, it takes an expression that yields something that Perl can transform into a string.