@words = split /$wc_regexp/, $$text_ref;