Help for this page

Select Code to Download

Select or download this

while (<$DATFILE>) {
print $cnt,'  ',length($_),"\n" if ($length>10_000);
$cnt++;