use File::Slurp qw(edit_file);

my $contents = '';
edit_file { $contents = $_; $_ = '';} 'temp/test.txt';
print $contents;