while(<DATA>) { print; select(undef, undef, undef, (length($_) / 100)); } __DATA__