$text =~ s|($keyword)(?![^<]*[>\Z])|<B>$1</B>|img;