c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = join foo => 1, 2, 3, 4;
 print qq{'$s'};
"
'1foo2foo3foo4'