>perl -e"print length qq{\n}
1
>perl -e"print qq{\n} eq qq{\x0A} ?1:0
1
>perl -e"print $/ eq qq{\x0A} ?1:0
1
>echo foo| perl -e"print length <>
4