Select Code to Download

my @a = qw/foo bar quz/;
print   "----- 1 -----\n";
...
$, = "%";
print @a , "\n";    # "foo%bar%quz%"
print   "-----   -----\n";