my $line  = "This is a line of text";
my @words = split /\s+/, $line;