#!/usr/bin/perl

use strict;
use warnings;

my $file = '/pfad/zu/datei.txt';
my @lines;

# öffne die Datei zum lesen und lese
# alles in ein Array ein
open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>){
   # schiebe die Zeile in das Array, wenn es keine Leerzeile ist
   push(@lines,$line) if($line !~ /^\s*$/);
}
close $fh;

# öffne die Datei zum Schreiben und schreibe
# die Zeilen aus dem Array in die Datei
open(my $w_fh,'>',$file) or die $!;
print $w_fh $_ for(@lines);
close $w_fh;