Select Code to Download

$line = "She was very absorbed in her homework.";
$word = "absorb";
...
$line =~ s/($word(?:s|ed))/<b>$1<\/b>/igm;
print STDOUT "New Line: $line\n";
print STDOUT "\$1 contains: $1\n";

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