my @split = ($text =~ m/\G.{$splitSize,}?$|.*\Z/gsm);