sample3.pl

   1 #!/usr/bin/perl -w
   2 use CHISE_REG;
   3 use utf8;
   4 #use re "debug";
   5
   6 if ('山川' =~ /(.)\same_total-strokes_1/) {
   7   print STDERR "matched!\n";
   8 } else {
   9   print STDERR "unmatched...\n";
  10 }