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

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