#!/usr/bin/perl
use strict;

my $regex = ['(foo)', '"bar$1"' ];
my $string = 'blah foo blah';
$string =~ s/$regex->[0]/$regex->[1]/ee;
print "$string\n";