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

use Data::Dumper;

my @arry = (
    'bond0.2 Link encap:Ethernet',
    'bond4.3:6 Link encap:Ethernet',
    'bond3 Link encap:Ethernet',
    'bond5:0 Link encap:Ethernet',
    'bond1.5:2 Link encap:Ethernet',
    'bond2.6 Link encap:Ethernet'
);

foreach (@arry) {
    if(/^([\w\.]+)\s+Link.*$/) {
        printf "Array item: %-30s\tmatch: %s\n", $_, $1;
    }
}