perl -e '$_="aaaa"; print "Match: $1\n" if /((?:a)\1)/;'