sub acl_parse {
        open (INFILE1, "<$acl_file");
        open (OUTFILE1, ">$acl_out");
        open (TEST, ">$acl_dump");

        while(<INFILE1>) {
                $_ =~ s/^\s+//;
                push(@acl, $_);
                foreach $acl(@acl) {
                        @acl_parse = split(/\s/,$acl); }
                                if ($acl_parse[2] ne "host") {
                                    print OUTFILE1 "$acl_parse[0]|$acl_parse[1]|$acl_parse[2]|$acl_parse[3]|$acl_parse[4]|$acl_parse[5]\n";
                                    
                                     my $b = "$acl_parse[2]#$acl_parse[3]";
                                     my $acl_block=new2 Net::Netmask ("$b");
                                     $acl_block->storeNetblock([$acl_tbl]);
}
}
}