print "Match1" if "aa1" =~ /^(a)\1(1)$/; #of course this places 1 in $2

##</code><code>##

print "match" if "aa1" =~ /^(a)\1(?:[^\s\S]*)1$/; #buwahahaha... kind of the opposite of Perl Golf...