Help for this page

Select Code to Download

Select or download this
s,(?<!\w)($worda)(\W+)($wordb)(?!\w),<B>$1</B>$2<B>$3</B>,i

Select or download this

my $material = join "\0", @material;

foreach $phrase (@key_phrases) {
...
}

@material = split /\0/, $material;