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

use Char;
print "1..8\n";

my $__FILE__ = __FILE__;

# /g ¤Ê¤·¤Î¥¹¥«¥é¡¼¥³¥ó¥Æ¥­¥¹¥È
$success = "¥¢¥½¥¢" =~ /¥½/;
if ($success) {
    print qq{ok - 1 "¥¢¥½¥¢" =~ /¥½/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 "¥¢¥½¥¢" =~ /¥½/ $^X $__FILE__\n};
}

# /g ¤Ê¤·¤Î¥ê¥¹¥È¥³¥ó¥Æ¥­¥¹¥È
if (($c1,$c2,$c3,$c4) = "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /^...(.)(.)(.)(.)...$/) {
    if ("($c1)($c2)($c3)($c4)" eq "(¥»)(¥½)(¥¿)(¥Á)") {
        print qq{ok - 2 "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 2 "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /^...(.)(.)(.)(.)...\$/ ($c1)($c2)($c3)($c4) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 2 "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /^...(.)(.)(.)(.)...\$/ ($c1)($c2)($c3)($c4) $^X $__FILE__\n};
}

# /g ¤¢¤ê¤Î¥ê¥¹¥È¥³¥ó¥Æ¥­¥¹¥È
@c = "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /./g;
if (@c) {
    $c = join '', map {"($_)"} @c;
    if ($c eq "(¥µ)(¥·)(¥¹)(¥»)(¥½)(¥¿)(¥Á)(¥Ä)(¥Æ)(¥È)") {
        print qq{ok - 3 \@c = "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /./g $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 3 \@c = "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /./g $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 3 \@c = "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /./g $^X $__FILE__\n};
}

# /g ¤¢¤ê¤Î¥¹¥«¥é¡¼¥³¥ó¥Æ¥­¥¹¥È
@c = ();
while ("¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /(..)/g) {
    push @c, $1;
}
$c = join '', map {"($_)"} @c;
if ($c eq "(¥µ¥·)(¥¹¥»)(¥½¥¿)(¥Á¥Ä)(¥Æ¥È)") {
    print qq{ok - 4 while ("¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /(..)/g) { } $^X $__FILE__\n};
}
else {
    print qq{not ok - 4 while ("¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ /(..)/g) { } $^X $__FILE__\n};
}

#---

# /g ¤Ê¤·¤Î¥¹¥«¥é¡¼¥³¥ó¥Æ¥­¥¹¥È
$success = "¥¢¥½¥¢" =~ m/¥½/;
if ($success) {
    print qq{ok - 5 "¥¢¥½¥¢" =~ m/¥½/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 5 "¥¢¥½¥¢" =~ m/¥½/ $^X $__FILE__\n};
}

# /g ¤Ê¤·¤Î¥ê¥¹¥È¥³¥ó¥Æ¥­¥¹¥È
if (($c1,$c2,$c3,$c4) = "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/^...(.)(.)(.)(.)...$/) {
    if ("($c1)($c2)($c3)($c4)" eq "(¥»)(¥½)(¥¿)(¥Á)") {
        print qq{ok - 6 "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 6 "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 6 "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
}

# /g ¤¢¤ê¤Î¥ê¥¹¥È¥³¥ó¥Æ¥­¥¹¥È
@c = "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/./g;
if (@c) {
    $c = join '', map {"($_)"} @c;
    if ($c eq "(¥µ)(¥·)(¥¹)(¥»)(¥½)(¥¿)(¥Á)(¥Ä)(¥Æ)(¥È)") {
        print qq{ok - 7 \@c = "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/./g $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 7 \@c = "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/./g $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 7 \@c = "¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/./g $^X $__FILE__\n};
}

# /g ¤¢¤ê¤Î¥¹¥«¥é¡¼¥³¥ó¥Æ¥­¥¹¥È
@c = ();
while ("¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/(..)/g) {
    push @c, $1;
}
$c = join '', map {"($_)"} @c;
if ($c eq "(¥µ¥·)(¥¹¥»)(¥½¥¿)(¥Á¥Ä)(¥Æ¥È)") {
    print qq{ok - 8 while ("¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/(..)/g) { } $^X $__FILE__\n};
}
else {
    print qq{not ok - 8 while ("¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/(..)/g) { } $^X $__FILE__\n};
}

__END__