Select Code to Download

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

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

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