#!/usr/bin/perl/

print "enter values.\n";
@value = ();
 while ($value = <>){
chomp($value);
if ($value eq ""){
last;}
@value = (@value , $value);
}

$count = 0;

foreach $line (@value)
{
$count++;
@z =split('', $line);
$count = @z;
}
print "$count items\n";

exit;