Select Code to Download

$ perl -E'my @x = qw/one two three/; for my $x ( @x ) { say $x }'
one
...
$ perl -E'my @x = qw/one two three/; say @x'
onetwothree