Select Code to Download

my @all_patterns = (
    qr/#.*/,
...
    qr/^,/,
    # ... and so on ...
);

 
sub apply_patterns {
    my ($string, @indexes) = @_;
...
        s/$regex//;
    }
}