perl -ple'$_=length'