Select Code to Download

sub foo { $mystring }

while (foo =~ m/blah../g) {

$/=undef;
for (<> =~ /\((.*?)\)/g) { print $1, "\n" }