#! perl
use Modern::Perl;

('a' x 100) =~ /(?<match>(??{'(.)' x 100}))/;

say $+{match};

##</code><code>##

12:28 >perl 504_SoPW.pl
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

12:28 >