>perl -e 'print "$_\n" for (qr/ab.c/,qr/ab.c/i,qr/ab.c/s,qr/ab.c/si)'
(?^:ab.c)
(?^i:ab.c)
(?^s:ab.c)
(?^si:ab.c)
>