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