#! perl use Modern::Perl; ('a' x 100) =~ /(?(??{'(.)' x 100}))/; say $+{match};