>perl -wMstrict -le
"my $s = qq{pl\n};
 ;;
 print 'match sans /s' if $s =~ /p.{2,6}/;
 print 'match with /s' if $s =~ /p.{2,6}/s;
"
match with /s