$data =~ tr/,/./;