my $opers='=[><=!]?|[><!]=|<>|[<>]';
while (m/(AND|OR)($opers)((?:(?!(?:AND|OR)(?:$opers)).)+)/xgms) {
       print "$1 $2 $3\n";
}