@words = split /([^$wordchars])/, $source_text;