Select Code to Download

>perl -wMstrict -le
"my $s = 'x s m e f s f pl s f x';
...
's m e f'
's m e f'
's m e f'

>perl -wMstrict -le
"my $alt = qr{ s[ ]m[ ]e[ ]f | s[ ]f[ ]pl | s[ ]f }xms;
...
'x  s f  s f pl  s m e f  x' -> 's m e f' at 16
'x  s f  s m e f  s f pl  x' -> 's m e f' at 8
'x  s f  s f  x' -> 's f' at 3