>perl -Mre=debug -we"qr/^(.)(\1*)\z/"
...
   9:   CURLYX[1] {0,32767}(14)
...