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