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

##</code><code>##


$line= "She was very absorbed in her homework.";
$word = "absorb";