#!/usr/bin/perl

use strict;
use warnings;

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

##</code><code>##

bbbb