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

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