Select Code to Download

my @parsed;

...
    defined $3 and die "Unclosed ASP code block near '",
        $asp =~ /\G(<%\s*\n?.*)/g, "'.\n";
}

<% foo = "a mere %> breaks either simple minded solution." %>