Select Code to Download

#!/usr/bin/perl

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

bbbb