Select Code to Download

sub to_literal { "'$_[0]'" }

...
    }
}
my @a = eval $x;

sub to_literal { "'\Q$_[0]\E'" }     <---

...
    }
}
my @a = eval $x;

my @a;
for (...) {
    push @a, $_;
}