open (INPUT, "<", "input.txt");
while (<INPUT>){
   chomp(my $record = $_);
   print join ",", (split /\t/, $record);
}