my @w = split /\s+/,$text,31;
pop @w;
my $words30= join " ", @w;