#! /usr/local/bin/perl -wl
use Regex::PreSuf;
print presuf(qw(sad salad spread));

##</code><code>##

s(?:al|pre)?ad