Help for this page

Select Code to Download


  1. or download this
    for my $word ( qw[ absorb absorbo absorbs absorbed absorbarararara ]){
    $word =~ /(absorb|absorbs|absorbed)/i
...
 absorb  at - line 2.
 absorb  at - line 2.
 absorb  at - line 2.
  2. or download this
    use Regex::PreSuf;
my $re = presuf(qw(absorb absorbs absorbed absorbing ));
die $re;
__END__
absorb(?:ed|ing|s)? at - line 3.