$wordcount ++ while $buffer =~ m/\b\w+\b/g