while (<$fh1>) {
	chomp;
	next if $_ eq '';
	s{ ("[^"]+") }{ (my $one = $1) =~ s{,}{-}xmsg; $one =~ s{"}{}g; $one; }xmsge;
	print $_, "\n";
}