Don't! Text::CSV_XS and Text::CSV both dynamically support \r \x0D, \n \x0A, or \r\n \x0D\x0A even if they change per line if eol is not specified.

You might want to do so on output though:

    print "Writing to file: $ofile_name\n";
    $templateTextCopy =~ s{(?: \r\n | \r | \n )}
                              {\r\n}gx;  # <-- make line ending consis
+tent
    open my $fh, ">", $ofile_name or die "$ofile_name: $!";
    print $fh $templateTextCopy;
    close $fh;
[download]