Select Code to Download

balanced_delimiters('(\a)', '(', ')', "\\")

sub balanced_delimiters {
    local $_ = shift;
...
    {local $^W=0;s/($LRS|.)/$sub{$1}/gs; eval{m/$_/} }
    return !$@;
}