#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $test = <<TESTTEIL
Leerzeile vorher

Hallo und guten Tag!
Es folgen Leerzeilen




TESTTEIL
;
(my $ohne_leerzeilen = $test) =~ s/^[\r\n]$//mg;
say "Mit : '$test'";
say "Ohne: '$ohne_leerzeilen'";