#!/usr/bin/perl
# https://perlmonks.org/?node_id=1222734
use strict;
use warnings;
use Path::Tiny;
my $lookuptxtfile = 'd.lookuptxtfile';
path($lookuptxtfile)->spew(<<END);
one
two
The action failed.
three
The action failed. twice The action failed.
four
END
print path($lookuptxtfile)->slurp;
print "\n";
# end setup for testing
do # actual code
{
local ($^I, @ARGV) = ('', $lookuptxtfile);
print s/The action failed./failed_build/gr while <>;
};
# end actual code :)
print path($lookuptxtfile)->slurp; # debug print