Help for this page
#! /usr/local/bin/perl -wl use Regex::PreSuf; print presuf(qw(sad salad spread));
s(?:al|pre)?ad