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