123. s///g で文字化け

　皆さん、こんにちは。

　Perl v5.6.1 built for i386-linux を使っていて、スクリプト、データとも
に文字コードを EUC で統一しているのですが、次のスクリプト

  #!/usr/bin/perl
  while (<>) {
    chomp;
    s/０/0/g;
    s/１/1/g;
    s/２/2/g;
    s/３/3/g;
    s/４/4/g;
    s/５/5/g;
    s/６/6/g;
    s/７/7/g;
    s/８/8/g;
    s/９/9/g;
    print "$_\n";
  }

で次のデータ

  藤高

を読むと、

  胴b

と文字化けしてしまいます。Perl のバグと考えたほうがいいんでしょうか？

--
本田博通（閑舎）
Hiromichi Honda <raku@...>