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

##</code><code>##

1/2/3./4/5/6./7/8./1