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