open (FH, shift);

my $file;
my @ports;
my $port;

my $line_old;
my $line_new;
my $porblock;

while ($line_new = <FH>){
    chomp $line_new;
    $portblock .= $line_new;

    if (($line_old eq "") and ($line_new eq  "")){   # zwei aufeinander folgende Zeile die leer sind 
        if ($portblock=~m/Aktiv/){
            $portblock =~m/(\d+?)/;
            print $1, "\n";
        }
        $portblock="";
    }
    $line_old = $line_new;
}