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

my @regexes = qw(a[hjg].* *a[hj);
print is_valid_re($_), $/ for @regexes;

__output__

YES
NO