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