remove cr or lf from data to fix csv export

diff --git a/upari.pl b/upari.pl
index dc8bead..424136c 100755 (executable)
--- a/upari.pl
+++ b/upari.pl
@@ -175,7 +175,11 @@ foreach my $val ( 1 .. 4 ) {
 =cut
                }
                # remove .000000 from values
-               $data->{$key_id}->{$num}->{$val} = [ map { s/^(\d+)\.0+$/$1/g; $_; } @$row ];
+               $data->{$key_id}->{$num}->{$val} = [ map {
+                               s/^(\d+)\.0+$/$1/g;     # remove .0000 decimals
+                               s/[\r\n]/ /gs;
+                               $_;
+               } @$row ];
        }
        close $fh;