$ perl -le '$x = qq{abc\0}; print $x; chop $x; print $x;' | od -xa
0000000      6261    0063    610a    6362    000a                        
           a   b   c nul  nl   a   b   c  nl