open (FH, "...");

while (<FH>) {

s/\,$//;

print FH $_;
}