% perl -MList::Util=max -lwe '
print max map length, `COLUMNS=1000 top -bcS -n 1 2>err.txt`'
208

##</code><code>##

% top --version
top (procps version 2.0.7)