perl -lwe 'use strict; print(join("/",split(/(?!\.\d)/,"123.456.78.1")))'