$text =~ m/^((?:\S+\s+){1,30})/;
my $words30 = $1;