For my above code spliced the 20 lines and stored in a array format. Now that's changed to add a newline character in every 20th line and stored in a scalar variable.

$new_string.="$&\n" while ($string=~ m/([^\n]+.*?\n){1,20}/gs);
print "\n$new_string";
[download]