Select Code to Download

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

say $+{match};

12:28 >perl 504_SoPW.pl
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

12:28 >