my @words = split(/\b\W*/, $_); # split into words