#!/usr/bin/perl
use Regex::PreSuf;
my @step4list   =qw(
   al able ance ant ate
   ence ent ement er
   ible ic ism iti ive ize
   ment
   ou ous
);
grep $_=reverse, @step4list;
print "4p1s0r:", presuf ({suffixes=>0}, @step4list), "\n";
print "4p1s1r:", presuf ({suffixes=>1}, @step4list), "\n";
print "4p0s1r:", presuf ({prefixes=>0}, @step4list), "\n";