1:46 >perl -wE "my @c = qw(x y z); say @c;"
xyz

17:29 >perl -wE "my @c = qw(x y z); $, = '|'; say @c;"
x|y|z

17:30 >