Help for this page
perl -lwe 'use strict; print(join("/",split(/(?!\.\d)/,"123.456.78.1" +)))'
1/2/3./4/5/6./7/8./1