use strict;
use warnings;

my ($c, $maxn, $n, $maxc, $str) = ('', 0);
$str = join '', <DATA>;

for (0..(length($str)-1)) {
    $_ = substr($str, $_, 1);
    if ($_ ne $c) {
        $n = 1;
        $c = $_;
    }
    else {
        $n++;
        if ($n > $maxn) {
            $maxn = $n;
            $maxc = $c;
        }
    }
}

print $maxc x $maxn;

__DATA__
ABDBACCBBBCBDDBCDCBCCDBABCBABBBBBADACDABACC