Help for this page

Select Code to Download


  1. or download this
        use warnings;
    use strict;
...
        :
            "NOT_MATCHED"
        ;
  2. or download this
    $_:[012=012]
NOT_MATCHED
  3. or download this
    $_:[012=012]
MATCHED: $1:[0], $2:[2]
  4. or download this
    (?(?{ my %h; map $h{ $_ } ++, $1, $2; print 0 + keys %h; 2 == keys %h 
+}) | (*FAIL) )