my @all_patterns = (
    qr/#.*/,
    qr/^\s+/,
    qr/\s+$/,
    qr/^Total/,
    qr/^,/,
    # ... and so on ...
);

##</code><code>##

 
sub apply_patterns {
    my ($string, @indexes) = @_;
    # Note $string is only a placeholder

    foreach my $idx (@indexes) {
        my $regex = $all_patterns[$idx];
        s/$regex//;
    }
}