Help for this page
/(.{0,40}\n){0,4}/ /(?:.{0,40}\n){0,4}/m
$foo = "1234567890123456789012345678901234567890 1234567890123456789012345678901234567890 ... { do something }