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