my @matches;
$line =~ s/\b($word(?:s|ed))/
  push @matches, $1;
  "<b>$1<\/b>"
/iegm;