#!/usr/bin/perl -w
#DatenbankAbfragen

use strict;
use warnings;
use DBI;
use Net::Telnet::Cisco;

my $session = Net::Telnet::Cisco-> new (Host => '10.100.20.100);
$session->login('admin', 'name);

# Execute a command
my @output = $session->cmd('show run');
my $string = join '',@output;

my @infos = split /interface ATM/,$string;
#shift @infos;

my %hash;
for my $interface(@infos){
  my ($bez) = $interface =~ /^([^\n]+)/;
  my @data = $interface =~ /(pvc.*?cbr 128)/sg;
  for my $daten(@data){
      my ($id,$ip) = $pvc =~ /(\s*[\d\/]+).*?protocol ip ((?:\d{1,3}\.){3}\d{1,3}).*?cbr/s;
      push @{$hash{'ATM'.$bez}}, [split(/\//,$id),$ip];
  }
}

for my $atm(keys %hash){
  print sprintf("%10s | %10s | %10s |  %10s |%15s\n",$atm,'Daten1','Daten2','IP','cbr');
  print sprintf("%10s | %10s | %10s |  %10s |%15s\n",' ',@$_,'') for @{$hash{$atm}};

Daten 1   |        Daten2  |        IP             |            cbr
         0|         50       |192.168.121.212 |            
           0 |        100      |192.168.121.210 |