@words = split (/[,.\s]+/, $big_string);