Select Code to Download

$ perl -Mstrict -Mwarnings -E '
my @x = qw{a b c};
...
'
a b c
a c

$ perl -Mstrict -Mwarnings -E '
my @x = qw{a b c};
...
'
a b c
a c

$ perl -Mstrict -Mwarnings -E '
my @x = ( qw{a}, (), qw{c} );
say "@x";
'
a c

$ perl -Mstrict -Mwarnings -E '
my @x = qw{a b c};
...
'
a b c
A C