Help for this page

Select Code to Download


  1. or download this
    $a=1;
print "Match\n" if "aa1" =~ /^(a)\1$a$/; # not match!
  2. or download this
    print "Match\n" if "aa1" =~ /^(a)\11$/; # not match!
  3. or download this
    $a='\11';
print "Match\n" if "aa1" =~ /^(a)$a$/; # not match!