#!/usr/bin/perl

use strict;
use warnings;

#local $/ = "\n\n";
while(my $line = <DATA>){
    print $.,":", length($line),"\n" unless($line eq '');
}

__DATA__
Diest ist