open(FILE,"+<tabs.txt") or die "Couldn't open tabs.txt: $!";
my @file = <FILE>; 
seek(FILE,0,0);
foreach(@file) {
     s/\t/,/g;
     print FILE $_;
}
close(FILE);