Thanks for the pointer, didn't know this stuff. Assuming it is OK to grow the file, how about this??? (It works for my testing...)

if (open(FILE, "+< stuff.txt"))
{
    local $/ = undef;
    my $buff = <FILE>;

    truncate(FILE, 0);
 
    # Update $buff
    print FILE $buff;
[download]