Select Code to Download

substr( $group, 0, 50000 ) =~ tr/!/\n/;

$group =~ s/!(??{ ( $myregexp::count++ < 50000 ) ? '' : '(?!)' })/\n/g
+;