Select Code to Download

>perl -wMstrict -le
"my @ra = (1,2,3,4,5);
 { $\" = ''; print qq{@ra}; }
"

$ perl -Mstrict -wle '
> my @arr = ( 1, 2, 3 );
...
123
123
$

$ perl -Mstrict -wle '
my @arr = ( 1, 2, 3 );
> print do{ local $" = q{}; qq{@arr} };'
123
$