>perl -wMstrict -lE
"say q{'}, /^.+?(s m e f|s f pl|s f).+$/, q{' at offset }, $-[1]
   for '-s f s f pl s m e f-';
"
's f' at offset 1