Select Code to Download

my $a='4,7,11,14';
print join(',',split(',',$a));

my @numbers=(4,7,11,14);
my $start='0 ';
my $middle=' 0 ';
my $end="\n";
print $start,join("$middle",@numbers),$end;