Select Code to Download

my @lines=map {chomp; "'$_'"} <>;
$"=",\n";
print "(@lines)\n";

$"=",\n";
print "(@{[map {chomp; qq|'$_'|} <>]})\n";