open(STDOUT, "+>csv_add_up");
rm_spaces(\*CSVADD_FILE);
close STDOUT;

sub rm_spaces {
    my $file = shift;
    while (<$file>) {
    chomp; 
    my @fields = split /,/; 
    s/\s+//g for @fields;
    s/\/I\/0//g for @fields;
    s/\/T\/0//g for @fields;
    print join ",", @fields,"\n";
}
}