>perl -wMstrict -le
"my @array = ('one', qw(two three), qq{four});
 print @array;
 $, = 'FOO';
 print @array;
 print qq{@array};
 $\" = 'BAR';
 print qq{@array};
"
onetwothreefour
oneFOOtwoFOOthreeFOOfour
one two three four
oneBARtwoBARthreeBARfour