#!/bin/bash
s='abcd 10001.'
perl -pe 's/(?!^).(?!$)/$&\n$&/g' <<< "$s"