$string = 'foo' x 2048;
$n = 1024;    # $n is group size.  
@groups = unpack "a$n" x ((length($string)/$n)-1) . "a*", $string;

print join("\n\n\n",@groups),"\n\n";