Select Code to Download

C:\>perl -e "@a=(qq(This produced output where most lines, alas, were 
+not wrapped.\n\n))x3; for (@a) { s/(.{0,37})\b/$1\n/g; print }"
This produced output where most lines
...
, alas, were not wrapped

.