perl -e 'while( <> ){ s/(\t)+/\;/g; print $_; }' <YourFile.tsv >OutputFile.scsv