use File::Edit::Portable qw(pread pwrite);

my $fh = pread('file.txt');

# or even

my @contents = pread('file.txt');

# then, later

pwrite('file.txt', \@contents);