Select Code to Download

'a'=~/(.)/;
print("$1\n");           # a
...
   last;
}
print("$1\n");           # a

my $comment_re = qr{/\*.*?\*/;}s;
my ($comment, $rest);
...
   $statement .= $line;
}
print("Found type 1 comment: $comment\n");