>perl -wMstrict -lE
"say /^.+(s m e f|s f pl|s f).+$/ for '-s m e f s f pl s f-';
"
s f