$data[23] =~ s/-/\.\./g;