>perl -wMstrict -le
"my $s = 'x s m e f s f pl s f x';
 ;;
 $s =~ qr/^.+(s m e f|s f pl|s f).+$/;
 print qq{'$1'};
 print qq{ -------};
 ;;
 my $alt = qr{ s[ ]m[ ]e[ ]f | s[ ]f[ ]pl | s[ ]x }xms;
 for my $s (
   'x  s m e f  s f pl  s f  x',  'x  s f  s f pl  s m e f  x',
   'x  s f  s m e f  s f pl  x',
   ) {
   my ($longest) =
     reverse sort { length($a) <=> length($b) }
     $s =~ m{ (?<= .) $alt (?= .) }xmsg
     ;
   print qq{'$longest'};
   }
"
's f'
 -------
's m e f'
's m e f'
's m e f'