Help for this page
use File::Replace 'replace2'; ... } close $infh; # closing both handles will close $outfh; # trigger the replace
#!/usr/bin/env perl use warnings; ... close $ifh; close $tfh; die "Marker not found" unless $found;