use strict;

use utf8;
my $str1 = 'いろは';
print $str1 =~ /\w/ ? "True" : "False", $/;

no utf8;
my $str2 = 'いろは';
print $str2 =~ /\w/ ? "True" : "False";

True
False