forfilelines myline mydata.txt {
    puts [string length $myline]
}