DB<113> ('a' x 10) =~ /((??{'(.)' x 10}))/; print "<$1>"
 => 1
<aaaaaaaaaa>