$result =~ s/($seekwrd)/<b>$1</b>/ig;