Help for this page
while ( $check =~ /^((AND|OR)([!=><]+)((?:(?!AND)(?!OR ).)*))/ ) { $1...; ... ...; $check =~ s/$1//; }