#!/usr/bin/perl
open (INFILE, @ARGV[0]);
my $line;my @thelines;my $thecounter=0;
while (<INFILE>) {
chomp;
$line = $_;
$line =~ s/\t/,/g;
$thelines[$thecounter]=$line;++$thecounter;
}
close (INFILE);
open (OUTFILE, ">@ARGV[0]");
foreach (@thelines) {print OUTFILE "$_\n";}
close (OUTFILE);