Select Code to Download

1..2
2017-09-04 = 1
...
#          got: undef
#     expected: '2'
# Looks like you failed 2 tests of 2.

use Data::Dumper;
open (OUT1, ">alldata.txt") or die;
...
    while (/(?<=##)(.*)(?=##)/g) {
        print OUT2 "$1\n";
}

open(FILE, 'C:\Users\li\test11\164949.txt');  
while (<FILE>) {
...

    }
}