1 2 3 4 5 6 7 8 9
use strict; use utf8; my $str1 = 'いろは'; print $str1 =~ /\w/ ? "True" : "False", $/; no utf8; my $str2 = 'いろは'; print $str2 =~ /\w/ ? "True" : "False";
1 2
True False