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

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

my $__FILE__ = __FILE__;

# [96 FB] [92 4A]
$_ = "–û’J";

# [FB 92] [89 48]
if ($_ =~ s/û’/‰H/g) {
    print qq{not ok - 1 \$_ !~ s/û’/‰H/ --> ($_) $^X $__FILE__\n};
}
else {
    if ($_ eq "–û’J") {
        print qq{ok - 1 \$_ !~ s/û’/‰H/ --> ($_) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 1 \$_ !~ s/û’/‰H/ --> ($_) $^X $__FILE__\n};
    }
}

__END__

kog*2*20 ‚³‚ñ

perl‚Åsjis‚Ì•¶Žš’uŠ·B”¼ŠpA‘SŠp‚Ì1ƒoƒCƒg–Ú2ƒoƒCƒg–Ú‚É“IŠm‚ɐ³‹K•\Œ»‚ðƒqƒbƒg‚³‚¹‚ép
http://blogs.yahoo.co.jp/koga2020/40579992.html

‚æ‚è