Select Code to Download

#list of regex-strings
my @regex =
...

#is now a list of subroutines
@regex = map { eval "sub { $_ }" } @regex;

my @text = 
(
...
    }
    print "new  $_\n";
}