#!/usr/bin/perl
use strict;
use warnings;

my $netStats = "";
$netStats = `ip addr show`;

# Ich hatte erst überlegt das Ergebnis aufzuteilen. Aber auch das funktioniert leider nicht. Und ich finde es un-elegant.
my @networksDevices = split (m/(\d{1,2}\: .+\n(\s{3,}.*\n*)+)/i, $netStats);