#!/usr/bin/perl -w
use CHISE_REG;
use utf8;
#use re "debug";

if ('山川' =~ /(.)\same_total-strokes_1/) {
  print STDERR "matched!\n";
} else {
  print STDERR "unmatched...\n";
}
