#!/usr/bin/perl

my $string = "aaaaabbbbaaaaaa";
$replace = "$1";
$string =~ s/a+(b+)a+/$replace/g;
print $string;