Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl use strict; use utf8; my $str1 = 'いろは'; print $str1 =~ /\w/ ? "True" : "False", $/; no utf8; my $str2 = 'いろは'; print $str2 =~ /\w/ ? "True" : "False"; Private [?] Run code