> perl -wle "$_='foo s f pl bar';print for /^.+(s m e f|s f pl|s f).+$/;"
s f pl