$ perl -le 'print "ok" if ("我走" =~ m/\w+/)' $ perl -le 'print "ok" if ("hi" =~ m/\w+/)' ok