my %matches;
my $section;
...
if ( $line =~ m/^(Router|Network|Extern)/ ) {
  $section = $1;
}
push @{ $matches{$section} }, $line;