Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"my $regex = '(?xms) ((.) \2{2,})';
...
"
match: captured 'iii'
match: captured 'oooo'