#!/usr/bin/perl use strict; use warnings; { use utf8; my $res = ('１２３' =~ /^\d+$/) ? "match" : "unmatch"; print "use utf8 ... $res\n"; } { no utf8; my $res = ('１２３' =~ /^\d+$/) ? "match" : "unmatch"; print " no utf8 ... $res\n"; } こ…