sample3.pl

   1 use CHISE;
   2 use utf8;
   3
   4 my $target = '山川';
   5 if ($target =~ /(.)\same_strokes_1/) {
   6   print "matched!\n";
   7 } else {
   8   print "unmatched...\n";
   9 }