>perl -le"use feature 'unicode_strings'; my $s = chr(0xE1); print $s =~ /[[:alpha:]]/ ?1:0"
0

>perl -le"use 5.012; my $s = chr(0xE1); print $s =~ /[[:alpha:]]/ ?1:0"
0