my $file = "/home/neu.txt";
  
open my $NAVI, "<", $file;
{  	
    local $/ = "\n\n";	
    while(my $block = <$NAVI>) {				    	  	  
		    next unless index($block, "SP Name: SP". $SP ) != -1  and
                    index($block, "SP Port ID: ". $PORT ) != -1;
        my ($status) = $block =~ /Link Status: (\w+)/;
        print "Link status for SP $SP (Port $PORT): $status\n";
        print "blub\n";
    }
  }
  close ($NAVI);