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