Select Code to Download

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

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