Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $instr =~ s#($searchterms)#<b style="background:$color">$1</b>#gi;
    return $instr;
}

Terms: tree crow black blue green stars

...
    the black crow is sitting in the blue tree looking at the green st
+ars
parsed2:
    the black crow is sitting in the blue <b style="background:#CC0000
+">tree</b> looking at the <b style="background:#CC0000">green</b> <b 
+style="background:#CC0000">stars</b>