Select Code to Download

map {/dothis/} @variable;
grep {/more stuff/} @more;

open (A, ">File") or die;
print A "hello";
print $somevar, "can be seperated like this";