Even without using modules, you could do it in a much simpler way:

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

Just change the size of your desired line inside the regexp.