print split '\.(?=[^.]*$)', $_ for 'x.y', 'x.y.z';; x y x.y z