$ perl -le 'open FOO, "file.txt"; print length $_ for (<FOO>);'