c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = join 8, qw(foo bar baz);
 print qq{'$s'};
"
'foo8bar8baz'