Select Code to Download

use strict;
use warnings;
...

print "OLDFILE2:\n$oldFile2\n\n";
print "CHANGES1:\n$changes1\n\n";

OLDFILE2:
1|oldFile|another field
...
2|newFile1|x
3|newFile1|y
4|newFile1|p