Select Code to Download

sub blah {
    return '}';
}

extract_bracketed($code, '{}') to handle this, but even that will stil
+l bomb on curlies in comments:
</p>
<code>
...
    # } is such a neat character
    return '}';
}

$code = blockize($code);

...
        return "{\n    sub $name $block\n}";
    }
}

sub blockize {
    my ($code) = @_;
...
        return "{\n    sub $name $block\n}";
    }
}