#!/usr/bin/perl

use strict;
use warnings;

while(my $line = <DATA>){
    print $.,":", length($line),"\n";
}

__DATA__
Diest ist