perl -e 'my $re = qr!yes|no!; print "$re\n";'
prints: (?-xism:yes|no)