#!/usr/bin/perl -w
# markus westphal 12.04.2005

use strict;
my ($satz,$s2,$s3,@ar);
#Textlength

$satz = "Es regnet blaue und gelbe fische"; 

@ar = split(" ",$satz);

for($s2=1; $s2 <= $#ar; $s2++){

printf(STDOUT "Das %2d. Wort ist %10d Zeichen lang 
\n",$s2,length($ar[$s2-1]));

               }