my $regex = ['(foo)',sub {\"bar$1"}];