s[\.(?=.*\.)][_]g, print while <DATA>;