$filename =~ s/\s*,\s*/,/g;