use strict;
use warnings;
my $file = "t.txt";
$/="\n\n";
open IN, "<", $file  or die "Unable to open $file: $!";
while(<IN>){
   print "=======\n",
         $_,
         "=======\n\n";
}
close IN;