open (FH, <DATEINAME>);  # Datei öffen 
 
my $file; 
my @ports; 
my $port; 

{ 
local $/ = undef;     # den Zeilenendepattern löschen 
$file = <FH>;         # Datei am Stück lesen 
} 
 
# der Zeilenendepattern ist nun wieder hergestellt 

 
@ports = split ("Port", $file);  # Die Port-Blöcke trennen
 
foreach $port (@ports){ 
   if ($port=~m/Aktiv/){       # Nach "aktiv" suchen 
       $port =~m/(\d+?)/;    # Nach der 1. Zahl suchen 
       print $1 , "\n";              # ausgeben 

  }
}