#############################################################
#
#   tab2comma.pl
#   Convert Tab Delimited File to Comma Delimited File (CSV)
#
############################################################

while ( <> ) {
    tr/\t/,/;
    print;
}

##</code><code>##

############################################################
#  testtab2comma.pl
#  Convert Tab Delimited File to Comma Delimited File (CSV)
#
############################################################

my $file = "sortpsalog.dat";

open (my $fh,"<", $file) or die "Can't open file $file: $!";
open (my $OUT,">","sortpsalog2.csv") or die "Can't open sort output file: $!";

while <my $line = <$fh>) {

  chomp($line);
##  $line =~ tr/\t/,/;
  $line =~ s/\t/,/g;

  print $OUT "$line \n";
}

close $fh or die "Can't close input file: $!";
close $OUT or die "Can't close output csv file: $!";