my $s;
print "$s\n" while $s = substr $str, 0, 100, '';