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

##</code><code>##

my $regex = ['foo','bar'];