RosettaCodeData/Task/Fixed-length-records/Perl/fixed-length-records-3.pl

use Path::Tiny;
path('outfile.dat')->spew(path('infile.dat')->slurp =~ s/.{80}/reverse $&/gesr);