Select Code to Download

use warnings;
use strict;
...
    print while(<$fh>); # uses perlish postfix, and perlish default of
+ print using $_
    print "\n===============\n";
}

they are different
Please check the file differ.txt
...
MATCH               = This is third line

===============