Select Code to Download

print $_ foreach @array;
print $_ foreach keys %hash

s/will/may/

$ perl -e'system(perl => "-le %h = map { \$_=>1 } qw(a b c d); print k
+eys %h") for 1..10'
cabd
...
cabd
cabd
cabd