>perl -le"print length unpack 'A', \'n';"
1