Help for this page

Select Code to Download

Select or download this

my $phrase;
foreach $phrase (@key_phrases) {
     my($worda,$wordb) = split(/ /, $phrase);
...
     s|</B></B>|</B>|g;
     s|</B> <B>| |g;
}