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