if ($line =~ s/($word(?:s|ed))/<b>$1<\/b>/igm)