my @all_patterns = ( 
    sub{ $_[0] =~ s/#.*// }, 
    sub{ $_[0] =~ s/^\s+// }, 
    sub{ $_[0] =~ s/\s+$// }, 
    sub{ $_[0] =~ s/^Total// }, 
    sub{ $_[0] =~ s/^,// },
);

##</code><code>##

sub apply_patterns {
    $_->( $_[0] ) for @all_patterns[ @_[ 1 .. $#_ ] ];
}