Select Code to Download

while ( index($group, "!", $index) > -1 and $index<50000 ) {

use strict;
use warnings;
...
$string = join("\n", split(/!/, $string, $limit));

print $string;