Its probably not the most efficient way to do this, but its probably the easiest

my @blocks=($text=~m/\G.{0,100}/gs);
[download]

HTH

Yves / DeMerphq
---
Writing a good benchmark isnt as easy as it might look.