Select Code to Download

bar( qw( testing is fun ) );

...
    print join q{,}, map { "[$_]" } @_;
    print "\n";
}

foo: [testing],[is],[fun]
foo:
foo:
foo: [woohoo]