Help for this page
{ local $_ = $str; /pattern1/ && /pattern2/; }
"8" =~ /^(?=.*\w)(?=.*\d)/;
"8" =~ /\w/ && "8" =~ /\d/;
"8" !~ /\w\d/ && "8" !~ /\d\w/;