Select Code to Download

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

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