>perl -le"print length qq{\n}"
1

>perl -le"print unpack 'H*', qq{\n}"
0a