in reply to Re (tilly) 2 (fails): Determining if you have balanced delimiters
in thread Determining if you have balanced delimiters

Thank you for catching that, it was meant more like 
@sub{@_} = ("(",")");
my $LRS=join'|',map quotemeta,@_;
{local $^W=0;s/($LRS.|.)/$sub{$1}/gs; eval{m/$_/}

[download]
  • Comment on Re: Re (tilly) 2 (fails): Determining if you have balanced delimiters
  • Download Code

In Section Cool Uses for Perl