sub is_valid_re {
    eval { qr/$_[0]/ };
    return $@ ? 'NO' : 'YES';
}