# This file is encoded in Char::UHC.
die "This file is not encoded in Char::UHC.\n" if q{‚ } ne "\x82\xa0";

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

my $__FILE__ = __FILE__;

# /g ‚È‚µ‚̃XƒJƒ‰[ƒRƒ“ƒeƒLƒXƒg
$success = "ƒAƒ\ƒA" =~ /ƒ\/;
if ($success) {
    print qq{ok - 1 "ƒAƒ\ƒA" =~ /ƒ\/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 "ƒAƒ\ƒA" =~ /ƒ\/ $^X $__FILE__\n};
}

# /g ‚È‚µ‚̃ŠƒXƒgƒRƒ“ƒeƒLƒXƒg
if (($c1,$c2,$c3,$c4) = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /^...(.)(.)(.)(.)...$/) {
    if ("($c1)($c2)($c3)($c4)" eq "(ƒZ)(ƒ\)(ƒ^)(ƒ`)") {
        print qq{ok - 2 "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 2 "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /^...(.)(.)(.)(.)...\$/ ($c1)($c2)($c3)($c4) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 2 "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /^...(.)(.)(.)(.)...\$/ ($c1)($c2)($c3)($c4) $^X $__FILE__\n};
}

# /g ‚ ‚è‚̃ŠƒXƒgƒRƒ“ƒeƒLƒXƒg
@c = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /./g;
if (@c) {
    $c = join '', map {"($_)"} @c;
    if ($c eq "(ƒT)(ƒV)(ƒX)(ƒZ)(ƒ\)(ƒ^)(ƒ`)(ƒc)(ƒe)(ƒg)") {
        print qq{ok - 3 \@c = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /./g $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 3 \@c = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /./g $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 3 \@c = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /./g $^X $__FILE__\n};
}

# /g ‚ ‚è‚̃XƒJƒ‰[ƒRƒ“ƒeƒLƒXƒg
@c = ();
while ("ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /(..)/g) {
    push @c, $1;
}
$c = join '', map {"($_)"} @c;
if ($c eq "(ƒTƒV)(ƒXƒZ)(ƒ\ƒ^)(ƒ`ƒc)(ƒeƒg)") {
    print qq{ok - 4 while ("ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /(..)/g) { } $^X $__FILE__\n};
}
else {
    print qq{not ok - 4 while ("ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ /(..)/g) { } $^X $__FILE__\n};
}

#---

# /g ‚È‚µ‚̃XƒJƒ‰[ƒRƒ“ƒeƒLƒXƒg
$success = "ƒAƒ\ƒA" =~ m/ƒ\/;
if ($success) {
    print qq{ok - 5 "ƒAƒ\ƒA" =~ m/ƒ\/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 5 "ƒAƒ\ƒA" =~ m/ƒ\/ $^X $__FILE__\n};
}

# /g ‚È‚µ‚̃ŠƒXƒgƒRƒ“ƒeƒLƒXƒg
if (($c1,$c2,$c3,$c4) = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/^...(.)(.)(.)(.)...$/) {
    if ("($c1)($c2)($c3)($c4)" eq "(ƒZ)(ƒ\)(ƒ^)(ƒ`)") {
        print qq{ok - 6 "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 6 "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 6 "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
}

# /g ‚ ‚è‚̃ŠƒXƒgƒRƒ“ƒeƒLƒXƒg
@c = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/./g;
if (@c) {
    $c = join '', map {"($_)"} @c;
    if ($c eq "(ƒT)(ƒV)(ƒX)(ƒZ)(ƒ\)(ƒ^)(ƒ`)(ƒc)(ƒe)(ƒg)") {
        print qq{ok - 7 \@c = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/./g $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 7 \@c = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/./g $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 7 \@c = "ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/./g $^X $__FILE__\n};
}

# /g ‚ ‚è‚̃XƒJƒ‰[ƒRƒ“ƒeƒLƒXƒg
@c = ();
while ("ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/(..)/g) {
    push @c, $1;
}
$c = join '', map {"($_)"} @c;
if ($c eq "(ƒTƒV)(ƒXƒZ)(ƒ\ƒ^)(ƒ`ƒc)(ƒeƒg)") {
    print qq{ok - 8 while ("ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/(..)/g) { } $^X $__FILE__\n};
}
else {
    print qq{not ok - 8 while ("ƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/(..)/g) { } $^X $__FILE__\n};
}

__END__