Select Code to Download

my $result = '';
my @list = qw(one two three four five six seven eight);
...
print $result, $/;
__OUTPUT__
one:twothree:fourfive:sixseven:eight