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

$_ = 'testing 1234567 ........ aaaaaaaasssssss __________ ++++++++++ --------- testing testing ';

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