my($next_word) = /and(?=\W*(\w+))/;