split & join

use strict;
my $glue = "A";
my @pieces = qw/B C D/;
my $result = join $glue, @pieces;
print "@pieces\n";
print "$result\n";

my $x = join ":",4,6,8,10,12;
print "$x\n";
my @values = split /:/,$x;
my $z = join "-", @values;
print "$z\n";