#!/usr/bin/perl
use strict;
use warnings;
while (<DATA>) {
	chomp;
	m/"([^"]+)"/;     # Extract quoted value.
	my $val = $1;     # Save value in variable.
	$val =~ s/,/-/;   # Change comma to dash.
	s/"[^"]+"/$val/;  # Replace quoted value.
	print $_, "\n";
}
__DATA__
65722417,"1193,1",7980,1133566,4169735,035,FEDERAL UNIVERSAL SERVICE FUND,0.12998
65722417,"1193,1",1012,1132900,4150053,C2,Carrier Cost Recovery Fee,0.0273