Help for this page
Select Code to Download
Select
or
download this
$word =~ /(absorb(?:s|ed)?)/i; print $1;