perl -e '$/=undef(); $_ = <>; print length($_)."\n";' < filename