$a=1;
print "Match\n" if "aa1" =~ /^(a)\1$a$/; # not match!