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

##</code><code>##

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

##</code><code>##

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