use List::Util qw(max);

use strict;
use warnings;

my $string = '00111100110';

my $longest = max map {length} $string =~ /(1+)/g;

$string =~ s/1{$longest}/'2' x $longest/eg;
print $string, "\n";