$str =~ /pat1/ or $str =~ /pat2/;