$var =~ s/\,/\./;