>perl -le"print length unpack 'a4', ''"
0

##</code><code>##

>perl -le"print length unpack 'a4', qq{\0\0\0\0}"
4