if (m/(\w+)\1/) {
   print "Found $1 twice\n";
}