Note that neither of these solutions wraps the text properly, because neither one accounts for the newlines already present in the text.

Suppose you were wrapping the following at 10 characters:

abcdefghijklm
nopqrstuvwxyz
[download]

The proper result is:

abcdefghij
klm
nopqrstuvw
xyz
[download]

However, the solutions in the Benchmark will produce:

abcdefghij
klm
nopqrs
tuvwxyz
[download]

The regex solution is easy to fix: print DUMP map "$_\n", $a=~/(.{1,80})/g; The substr() solution requires more work to get right, such as splitting on newlines and wrapping each line separately, or sticking any partial lines back onto to the beginning of the string after each substr().