Select Code to Download

our $parens;
my  $re = qr{ (
...
print "other, $parens\n" if $other =~ /$re/;
$parens = 0;
print "bla, $parens\n" if $bla =~ /$re/;

this, 0
that, 1
other, -1
bla, -1