Select Code to Download

$ perl -Mstrict -Mwarnings -E '
my $x = "abc";
...
'
cba
aba

$ perl -Mstrict -Mwarnings -E '
my $x = "abc";
...
say $y if index($y, "a") == 2;
'
cba