# encoding: EUCJP
# This file is encoded in EUC-JP.
die "This file is not encoded in EUC-JP.\n" if q{¤¢} ne "\xa4\xa2";

use EUCJP;
print "1..40\n";

my $__FILE__ = __FILE__;

if ("¥½¥¢¥¢" =~ /^¥½/) {
    print qq{ok - 1 "¥½¥¢¥¢" =~ /^¥½/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 "¥½¥¢¥¢" =~ /^¥½/ $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ /^¥½/) {
    print qq{ok - 2 "¥¢¥½¥¢" !~ /^¥½/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 2 "¥¢¥½¥¢" !~ /^¥½/ $^X $__FILE__\n};
}

if ("¥¢¥¢¥½" =~ /¥½$/) {
    print qq{ok - 3 "¥¢¥¢¥½" =~ /¥½\$/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 3 "¥¢¥¢¥½" =~ /¥½\$/ $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ /¥½$/) {
    print qq{ok - 4 "¥¢¥½¥¢" !~ /¥½\$/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 4 "¥¢¥½¥¢" !~ /¥½\$/ $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" =~ /(¥¢([¥¤¥½¥¦])¥¢)/) {
    if ($1 eq "¥¢¥½¥¢") {
        if ($2 eq "¥½") {
            print qq{ok - 5 "¥¢¥½¥¢" =~ /(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
        }
        else {
            print qq{not ok - 5 "¥¢¥½¥¢" =~ /(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
        }
    }
    else {
        print qq{not ok - 5 "¥¢¥½¥¢" =~ /(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 5 "¥¢¥½¥¢" =~ /(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ /(¥¢([¥¤¥¦¥¨])¥¢)/) {
    print qq{ok - 6  "¥¢¥½¥¢" !~ /(¥¢([¥¤¥¦¥¨])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
else {
    print qq{not ok - 6 "¥¢¥½¥¢" !~ /(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" =~ /(¥¢¥½|¥¤¥½)/) {
    if ($1 eq "¥¢¥½") {
        print qq{ok - 7 "¥¢¥½¥¢" =~ /(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 7 "¥¢¥½¥¢" =~ /(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 7 "¥¢¥½¥¢" =~ /(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ /(¥¢¥¤|¥¤¥¦)/) {
    print qq{ok - 8 "¥¢¥½¥¢" !~ /(¥¢¥¤|¥¤¥¦)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 8 "¥¢¥½¥¢" !~ /(¥¢¥¤|¥¤¥¦)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ /(¥¢¥½?)/) {
    if ($1 eq "¥¢¥½") {
        print qq{ok - 9 "¥¢¥½¥½" =~ /(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 9 "¥¢¥½¥½" =~ /(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 9 "¥¢¥½¥½" =~ /(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ /(¥¤¥½?)/) {
    print qq{ok - 10 "¥¢¥½¥½" !~ /(¥¤¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 10 "¥¢¥½¥½" !~ /(¥¤¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ /(¥¢¥½¥½?)/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 11 "¥¢¥½¥½" =~ /(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 11 "¥¢¥½¥½" =~ /(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 11 "¥¢¥½¥½" =~ /(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ /(¥¤¥½¥½?)/) {
    print qq{ok - 12 "¥¢¥½¥½" !~ /(¥¤¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 12 "¥¢¥½¥½" !~ /(¥¤¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ /(¥¢¥½+)/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 13 "¥¢¥½¥½" =~ /(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 13 "¥¢¥½¥½" =~ /(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 13 "¥¢¥½¥½" =~ /(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ /(¥¤¥½+)/) {
    print qq{ok - 14 "¥¢¥½¥½" !~ /(¥¤¥½+)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 14 "¥¢¥½¥½" !~ /(¥¤¥½+)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ /(¥¢¥½*)/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 15 "¥¢¥½¥½" =~ /(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 15 "¥¢¥½¥½" =~ /(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 15 "¥¢¥½¥½" =~ /(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ /(¥¤¥½*)/) {
    print qq{ok - 16 "¥¢¥½¥½" !~ /(¥¤¥½*)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 16 "¥¢¥½¥½" !~ /(¥¤¥½*)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ /(¥¢.)/) {
    if ($1 eq "¥¢¥½") {
        print qq{ok - 17 "¥¢¥½¥½" =~ /(¥¢.)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 17 "¥¢¥½¥½" =~ /(¥¢.)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 17 "¥¢¥½¥½" =~ /(¥¢.)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ /(¥¤.)/) {
    print qq{ok - 18 "¥¢¥½¥½" !~ /(¥¤.)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 18 "¥¢¥½¥½" !~ /(¥¤.)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ /(¥¢.{2})/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 19 "¥¢¥½¥½" =~ /(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 19 "¥¢¥½¥½" =~ /(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 19 "¥¢¥½¥½" =~ /(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ /(¥¤.{2})/) {
    print qq{ok - 20 "¥¢¥½¥½" !~ /(¥¤.{2})/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 20 "¥¢¥½¥½" !~ /(¥¤.{2})/ \$1=($1) $^X $__FILE__\n};
}

#---

if ("¥½¥¢¥¢" =~ m/^¥½/) {
    print qq{ok - 21 "¥½¥¢¥¢" =~ m/^¥½/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 21 "¥½¥¢¥¢" =~ m/^¥½/ $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ m/^¥½/) {
    print qq{ok - 22 "¥¢¥½¥¢" !~ m/^¥½/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 22 "¥¢¥½¥¢" !~ m/^¥½/ $^X $__FILE__\n};
}

if ("¥¢¥¢¥½" =~ m/¥½$/) {
    print qq{ok - 23 "¥¢¥¢¥½" =~ m/¥½\$/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 23 "¥¢¥¢¥½" =~ m/¥½\$/ $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ m/¥½$/) {
    print qq{ok - 24 "¥¢¥½¥¢" !~ m/¥½\$/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 24 "¥¢¥½¥¢" !~ m/¥½\$/ $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" =~ m/(¥¢([¥¤¥½¥¦])¥¢)/) {
    if ($1 eq "¥¢¥½¥¢") {
        if ($2 eq "¥½") {
            print qq{ok - 25 "¥¢¥½¥¢" =~ m/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
        }
        else {
            print qq{not ok - 25 "¥¢¥½¥¢" =~ m/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
        }
    }
    else {
        print qq{not ok - 25 "¥¢¥½¥¢" =~ m/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 25 "¥¢¥½¥¢" =~ m/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ m/(¥¢([¥¤¥¦¥¨])¥¢)/) {
    print qq{ok - 26 "¥¢¥½¥¢" !~ m/(¥¢([¥¤¥¦¥¨])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
else {
    print qq{not ok - 26 "¥¢¥½¥¢" !~ m/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" =~ m/(¥¢¥½|¥¤¥½)/) {
    if ($1 eq "¥¢¥½") {
        print qq{ok - 27 "¥¢¥½¥¢" =~ m/(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 27 "¥¢¥½¥¢" =~ m/(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 27 "¥¢¥½¥¢" =~ m/(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ m/(¥¢¥¤|¥¤¥¦)/) {
    print qq{ok - 28 "¥¢¥½¥¢" !~ m/(¥¢¥¤|¥¤¥¦)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 28 "¥¢¥½¥¢" !~ m/(¥¢¥¤|¥¤¥¦)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ m/(¥¢¥½?)/) {
    if ($1 eq "¥¢¥½") {
        print qq{ok - 29 "¥¢¥½¥½" =~ m/(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 29 "¥¢¥½¥½" =~ m/(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 29 "¥¢¥½¥½" =~ m/(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ m/(¥¤¥½?)/) {
    print qq{ok - 30 "¥¢¥½¥½" !~ m/(¥¤¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 30 "¥¢¥½¥½" !~ m/(¥¤¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ m/(¥¢¥½¥½?)/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 31 "¥¢¥½¥½" =~ m/(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 31 "¥¢¥½¥½" =~ m/(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 31 "¥¢¥½¥½" =~ m/(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ m/(¥¤¥½¥½?)/) {
    print qq{ok - 32 "¥¢¥½¥½" !~ m/(¥¤¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 32 "¥¢¥½¥½" !~ m/(¥¤¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ m/(¥¢¥½+)/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 33 "¥¢¥½¥½" =~ m/(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 33 "¥¢¥½¥½" =~ m/(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 33 "¥¢¥½¥½" =~ m/(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ m/(¥¤¥½+)/) {
    print qq{ok - 34 "¥¢¥½¥½" !~ m/(¥¤¥½+)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 34 "¥¢¥½¥½" !~ m/(¥¤¥½+)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ m/(¥¢¥½*)/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 35 "¥¢¥½¥½" =~ m/(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 35 "¥¢¥½¥½" =~ m/(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 35 "¥¢¥½¥½" =~ m/(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ m/(¥¤¥½*)/) {
    print qq{ok - 36 "¥¢¥½¥½" !~ m/(¥¤¥½*)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 36 "¥¢¥½¥½" !~ m/(¥¤¥½*)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ m/(¥¢.)/) {
    if ($1 eq "¥¢¥½") {
        print qq{ok - 37 "¥¢¥½¥½" =~ m/(¥¢.)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 37 "¥¢¥½¥½" =~ m/(¥¢.)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 37 "¥¢¥½¥½" =~ m/(¥¢.)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ m/(¥¤.)/) {
    print qq{ok - 38 "¥¢¥½¥½" !~ m/(¥¤.)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 38 "¥¢¥½¥½" !~ m/(¥¤.)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ m/(¥¢.{2})/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 39 "¥¢¥½¥½" =~ m/(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 39 "¥¢¥½¥½" =~ m/(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 39 "¥¢¥½¥½" =~ m/(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ m/(¥¤.{2})/) {
    print qq{ok - 40 "¥¢¥½¥½" !~ m/(¥¤.{2})/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 40 "¥¢¥½¥½" !~ m/(¥¤.{2})/ \$1=($1) $^X $__FILE__\n};
}

__END__