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

##</code><code>##

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

##</code><code>##

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'));