>perl -e"print qq{C\x00a\x00p\x00}" | perl -CS -we"print length <>"
6