Select Code to Download

my $file = <$INPUT>;
$file =~ s/(?:(?<=^)|(?<=\t))([^\t\n]*)(?=[\t\n])/"$1"/mg;
$file =~ tr/\t/,/;