Select Code to Download

## single quotes around heredoc
my $string = <<'STRING';
...

my @lines = $string =~ m/^(.*?)$/msg;
print scalar @lines, " lines\n";