local $" = "a";  # list separator
local $, = "c";  # output field separator
local $\ = "l";  # output record separator
my @x = ('F','O');
print @x, "@x", "x";  # prints "FcOcFaOcxl"