Select Code to Download

$str = 'Nothing but perl can parse Perl';

...

print($str =~ /perl/i ?1:0,"\n");      # Prints '1'
print($str =~ /noth/i ?1:0,"\n");      # Prints '1'

$str = 'Nothing but perl can parse Perl';

...
while (/perl/i) {
   # Loops forever
}

my @matches = ($g ? /$re/g : /$re/);

for (...) {
   my ($re, $g) = @$_;
   my @matches = ($g ? /$re/g : /$re/);
   ...
}

>perl -le"print qr/.../s"
(?s-xim:...)