$word =~ /(absorb(?:s|ed)?)/i; print $1;