#!/bin/perl

open FILE, "<running.txt";
@running=<FILE>;
close FILE;


#ip access-list extended <NR/NAME>
#ip access-list standard <NR/NAME>
#access-list <NR>

#config durchlaufen und context merken - letzte zeile ohne " " am zeilenanfang.
#ip access-group <NR/NAME> in/out

#access-class <NR/NAME> in/out

#ip nat xxxxxxxxxxxxxxxxxxx list <NAME>

#match ip address <NR/NAME \prefix-lists>

# Konfigurierte ACL finden
foreach (@running) {
    chomp;
    if (/ip access-list extended ([0-9a-zA-Z]*) /) {