Select Code to Download

perl 
-wlne"printf qq[\t'%s'\n], join qq['+\n\t'], m[(.{1,34}(?: |$)|.{34})]
+g" 
...
        'I would like it to be formatted '+
        'exactly as follows (except for the '+
        'exact line length)'

#! perl -slw
use strict;
...
__DATA__
Here is one big long string which needs to have some formatting done t
+o it before I can use it for input in a separate program.
I would like it to be formatted exactly as follows (except for the exa
+ct line length)

P:\test>junk

...
        'to it before I can use it for input in a separate program.'
        'I would like it to be formatted exactly as follows (except fo
+r the '+
        'exact line length)'