use Regex::PreSuf;
my $re = presuf(qw(absorb absorbs absorbed absorbing ));
die $re;
__END__
absorb(?:ed|ing|s)? at - line 3.