$line =~ s/,/ /g;