>perl -le"print length unpack 'A', qq{\n};" 0