match regular expression of 1..99 kanji numerals

kanji-numerals-re.pl

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

# 漢数字 1..9 の一文字 (need: use utf8)
my $kd_re = qr/[一二三四五六七八九]/;

# 1..99 の漢数字表現
my $kanji_numerals_re = qr{
    $kd_re                   # 一桁
    |
    $kd_re? (?<!一)十 $kd_re? # 二桁で「十」を伴う場合
    |
    $kd_re (?:$kd_re|〇)      # 二桁で「十」を伴わない場合
}x;