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

use Path::Tiny;
path('outfile.dat')->spew(reverse unpack '(a80)*', reverse path('infile.dat')->slurp);