Select Code to Download

#!/usr/bin/perl
use warnings;
...
        $node->{$op}=[parse($regex,$before),parse($regex,$after)];
        return $node;
}

5+4*3&&COND||COND2||COND3&&ANOTHER

{
  '&&' => [
...
            'ANOTHER'
          ]
}