Select Code to Download

use strict;
use warnings;
...
           s/\b($next_word[$BEL_LETTERS]*)\b/>$1</gi);
    }
}

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