enumerate numbered sentences as new lines

getclip | perl -ne 's/^\d+\.\s*//; s/[\r\n]*//g; s/\./.\n/g; print if /\S/' | putclip