$ echo -e "\xE4"|perl -wE 'say <> ~~ /\w/'
1
$ # this a perl 5.14.1