Or use the name of the character if you don't have the codes on the tip of your tongue:
use warnings;
use strict;
use utf8;
use charnames ':full';
my $string = '看【厂家直销 儿童加绒加厚打底裤 中小童冬季】Ib';
binmode STDOUT, ':encoding(UTF-8)';
print "Match: $string\n" while $string =~ /
\N{LEFT BLACK LENTICULAR BRACKET} (.*?) \N{RIGHT BLACK LENTICULAR BRACKET}
/gx;
In reply to Re^4: String match in Chinese character
by 1nickt
in thread String match in Chinese character
by hankcoder
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |