my $replace = '$1'; $string =~ s/a+(b+)a+/$replace/eeg;