use strict;
use warnings;

$_ = 'here the text goes';
my @entries;
print  scalar (@entries = split /\s+/, $_);