perl -lne 'print $1 while /(.{0,70}(?:\s|$))/g' < text_file.txt