#!/usr/bin/perl

$cparens = qr/
(?<intern>
 \<
 (?:
  [^<>]++
  |
  (?$+{intern})
 )*+
 \>
)
/x;

$ks="BinaryNode<OpAdd1<OpAdd2>,OpMulAdd2<OpMulAdd>>";

if ($ks =~ m/
([^<>]++)
    \<(?'part1'[^<>]++(?:$cparens)?)
    \,(?'part2'[^<>]++(?:$cparens)?)
    \>
    /x) {
  print "ok\n";
}

print "p1 $+{part1}\n";
print "p2 $+{part2}\n";