my @array = split /\s+/, $input;
$count = scalar (@array);