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) { /^([\w\.]+)\s+Link.*$/; if($1) { printf "Array item: %-30s\tmatch: %s\n",$_,$1; } } #### Array item: bond0.2 Link encap:Ethernet match: bond0.2 Array item: bond4.3:6 Link encap:Ethernet match: bond0.2 Array item: bond3 Link encap:Ethernet match: bond3 Array item: bond5:0 Link encap:Ethernet match: bond3 Array item: bond1.5:2 Link encap:Ethernet match: bond3 Array item: bond2.6 Link encap:Ethernet match: bond2.6