Select Code to Download

my $regex = ['(foo)','bar'];
$string =~ s/$regex->[0]/$regex->[1]$1/;

#!/usr/bin/perl
use strict;
...
my $string = 'blah foo blah';
$string =~ s/$regex->[0]/$regex->[1]/ee;
print "$string\n";