{
    local $_ = $str;
    /pattern1/ && /pattern2/;
}

##</code><code>##

    "8" =~ /^(?=.*\w)(?=.*\d)/;

##</code><code>##

    "8" =~ /\w/ && "8" =~ /\d/;

##</code><code>##

    "8" !~ /\w\d/ && "8" !~ /\d\w/;