Help for this page
Select Code to Download
Select
or
download this
while (my ($block) = $var =~ /(.{1,$max_length})/gs) { ... }