my @data;
open (FILE,"+</path/file") || "Unable to open file";
flock (FILE,2) || die "Unable to lock file";
foreach(<FILE>){
  push @data,$_ unless ($_ eq "\n");
}
seek (FILE,0,0) || die "Unable to seek";
print FILE @data;
truncate (FILE,tell(FILE)) || die "Unable to truncate file";
close FILE || die "Unable to close file";