+# 今回のように、スクリプト内に直接マルチバイト文字(日本語の全角文字など)を
+# スクリプト内に書かれたマルチバイト文字(日本語の全角文字など)を標準出力する
+use Encode qw/encode_utf8/;
+# 0〜99までの数字を漢数字を受け取ってアラビア数字にする
+ '三四', '二十一', '三十四', '三十',
+for my $arabic_number (@array) {
+ $arabic_number =~ s/〇/0/;
+ $arabic_number =~ s/一/1/;
+ $arabic_number =~ s/二/2/;
+ $arabic_number =~ s/三/3/;
+ $arabic_number =~ s/四/4/;
+ $arabic_number =~ s/五/5/;
+ $arabic_number =~ s/六/6/;
+ $arabic_number =~ s/七/7/;
+ $arabic_number =~ s/八/8/;
+ $arabic_number =~ s/九/9/;
+ $arabic_number =~ s/十/10/;
+# 上記の置換でアラビア数字が2桁以下になるものであれば、
+# アラビア数字が3桁以上のものには、さらに置換で対応する
+# 10が先頭にあるか、それ以外かでグループ分けできそう
+ if ( $arabic_number > 100 ) {
+ $arabic_number =~ s/^10/1/;
+ $arabic_number =~ s/10//;
+ print encode_utf8($arabic_number) . "\n";