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