Select Code to Download

#4p1s0: # Already optimal matching forward
   (?:   a  (?: ble | n(?:ce|t) | te | l )
...
   )
#4p0s1: # It's better than this:
   (?:ic|(?:[ae]nc|[ai]bl|at|iv|iz)e|iti|al|ism|er|ous|(?:e?me|[ae])nt
+|ou)

#3p0s1: # Less optimal
(?:   (?: icat | ativ | aliz )  e
...
  |   l  (?: aci | uf )
  |   ssen
)

   (?:abcd|efg|won|I|[now]|know|my|regexes)
   (?:abcdcba|efgfe|wonow|[now]|I|knowonk|mym|regexesexeger)
   (?x-ism: dcba|gfe |     now |I| [own] |wonk|y m|sexeger)

#!/usr/bin/perl
use Regex::PreSuf;
...
print "4p1s0r:", presuf ({suffixes=>0}, @step4list), "\n";
print "4p1s1r:", presuf ({suffixes=>1}, @step4list), "\n";
print "4p0s1r:", presuf ({prefixes=>0}, @step4list), "\n";