sub is_valid_re { eval { qr/$_[0] } }
print is_valid_re('abc') ? 'YES' : 'NO';

sub human_bool { shift ? 'YES' : 'NO' }
print human_bool(is_valid_re('abc'));