perl -aplwe"$w+=@F;$c+=length}{$_=qq[\t$. $w ${\($c+$.*2)} $ARGV]"