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