>perl -wMstrict -le
"my $s = 'ASdf';
 ;;
 for my $op ('i', '#', '') {
   printf qq{for op eq '$op': };
   print 'asdf' =~ m{ (?$op) \Q$s\E }xms ? '' : 'NO ', 'match';
   }
"
for op eq 'i': match
for op eq '#': NO match
for op eq '': NO match