my @words = split /\s+/, $free;


##</code><code>##

my @words = split ' ', $free;