(my $ohne_leerzeilen = $test) !~ s/^\s*$//mg;