#!/usr/bin/perl

use strict;
use warnings;

open IN,"csv.txt" or die $!;

while(<IN>){
	chomp($_);
	my @arr = split(/,|"|\s/,$_);
	print $arr[0],"\t",$arr[1],"\n",$arr[2],"\n",$arr[3],"\n",$arr[4],"\n",$arr[5],"\n",$arr[6],"\n",$arr[7],"\n",$arr[8],"\n",$arr[9],"\n",$arr[10],"\n",$arr[11],"\n",$arr[12],"\n";
	print @arr;
}