#!perl

use strict;
use warnings;

use English qw( -no_strict_vars );

local $INPLACE_EDIT = '.bak';

while (<ARGV>) {
    s/"/""/g;
    s/\t/","/g;
    s/^/"/;
    s/$/"/;
}