s/\b($next_word([$BEL_LETTERS])*)\b/>$1</gi);