push @arr, $& while ($no=~ m/([^\n]+.*?\n){1,20}/gs);
print "\n$_" for @arr;