Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...

s/((.)\2\2)\2*/$1/g;
print;

  (                        group and capture to \1:
----------------------------------------------------------------------
    (                        group and capture to \2:
...
----------------------------------------------------------------------
  \2*                      what was matched by capture \2 (0 or more
                           times (matching the most amount possible))