Select Code to Download

# fail (no parens in regex assignment)

...

perl -wMstrict -E 'my $x="Faith"; my $r=q{(?i:faith)}; say "ok" if $x 
+=~ /$r/'
ok