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