#split.pl

#\!C:\strawberry\perl\bin\perl.exe
while($input=<STDIN>)
{
@line=split(" " ,$input);
$i=0;
for $word (@line)
	{
	$len=length($word);
	print " word $i = '$word' has a length of $len \n";
	$i++;
	}
}