Select Code to Download

system ('grep -l "DATAmessage.*3\.0" *.xml > 3.0_files_arraydata.txt')
+;

open my $FH, '>', '3.0_files_arraydata.txt'
...
        }
    }

system ("mv temp_3.0_files_onixarraydata.txt 3.0_files_arraydata.txt")
+;

rename 'temp_3.0_files_onixarraydata.txt', '3.0_files_arraydata.txt'
    or die "Cannot move 'temp_3.0_files_onixarraydata.txt' because: $!
+";

system ("cat *files_arraydata.txt > data2.txt");

open my $FH, '>', 'data2.txt'
    or die "Cannot open 'data2.txt' because: $!";
...
    print $FH $_ while <>;
    }

system ("rm data2.txt");

unlink 'data2.txt'
    or die "Cannot delete 'data2.txt' because: $!";

system ("sort -u data2.txt > data.txt");

open my $IN,  '<', 'data2.txt'
    or die "Cannot open 'data2.txt' because: $!";
...
    print $OUT sort grep { ! $unique{ $_ }++ } <$IN>;
    }