$a = 'A￥[B￥]C';
if ($a =~ /A￥\[B￥\]C/ ){
print "OK￥n";
}
else {
print "NG￥n";
}