>perl -wMstrict -le
"my $test = qx{ @{[ qw(echo testing ...)[0, 1, 1, 1, 2, 1] ]} };
 print qq{'$test'};
"
'testing testing testing ... testing
'