$ perl -Mv5.14 -e'say length "a\xA0" =~ s/\s+\z//r'
1

$ perl -Mv5.14 -e'say length unpack "A*", "a\xA0"'
2