join $sep, $one, $two, $three;

##</code><code>##

"$one$sep$two$sep$three";  # well in the long run anyway =P

##</code><code>##

sub this { "This" }
sub that { "That" }