以下のプログラムはなぜ"NG"となるのでしょうか？
どうか教えてくださいm(_ _)m

Perl v5.8.8 built for i686-linux

#!/usr/local/bin/perl
$a='A￥[B￥]C';
if ( $a =~ /A￥[B￥]C/ ){
　　print "OK￥n";
}else{
　　print "NG￥n";
}

あと、任意の文字列を=~で比較しなくてはいけないとき、
"["のような都合が悪い文字列が入ってきた場合にそなえるのは
「quotemetaで処理」が適切なのでしょうか
quotemetaし忘れて=~で落ちるバグを修正しようとしたのですが、
上記のプログラムがなぜかNGになるので修正しきれないのです(; ;)