This is just a workaround to get it working in the short term, but you might try translating the file from TSV to CSV on the fly. Here's an example:
# in your code, $text would be each line of the file inside a loop
my $text = 'asfd asdf, fdsa asd "fds"asf 123';
$text =~ s/"/\\"/g;
$text = qq|"$text"|;
$text =~ s/\t/","/g;
print "$text\n";