Select Code to Download

open FH, '+<afile';
...
print FH $temp;
truncate(FH, tell(FH));
close(FH);

sub slurp {
...
my $temp = slurp 'file.txt';
$temp =~ s/2/two\nhi hello/;
jot 'file.txt', $temp;