Re: Fast Replacement

[choroba]

If you are reading $group from a file, you can probably replace the exclamation marks when reading the file already. Something like

{   local $/ = '!';
    while (<>) {
        chomp;
        print "$_\n";
        last if 50_000 <= $.;
    }
}
print <>;