$ perl -le'print length unpack "A", "\n";'
0