Help for this page

Select Code to Download


  1. or download this
    if ($s =~ /^a(?!.*ab).*b$/) {
  2. or download this
    use strict;
use warnings;
...
   ? qq{$_: matched\n}
   : qq{$_: unmatched\n}
   for @strings;
  3. or download this
    a000000000b: matched
a0a0000b00b: matched
a0000ab000b: unmatched
a00000000ab: matched