>>947
> ８７１のうちまともにカウントできたのは、
> my $sObj ='A^BCDE1^2ABDE^ABC';
> my $iCnt = 0;
> map {++$iCnt} ($sObj =~ /\^/g);
> print "COUNT: $iCnt\n";
> だけでした。
> 他は、カウントできません。

そんなばかな。どんなコードを書いて試したんだ?

そもそも>>793の
> s/"^"/"^"/g
とか
> s/"\^"/"\^"/g
も、文字列中の ^ を " で括ってる意味がわからん。
今頃言うのもなんだが。