Help for this page

Select Code to Download

Select or download this

  ...
# $string =~ /^(.+)es$/ && push @patterns, $1;     # singular
...
  #print "patterns:"; print " /$_/" for(@patterns); print "\n";
  # end mods
  ...