Re^3: Split() first 3 elements of @array

[Kenosis]

Try the following:

use Modern::Perl;

my @RouterOutput = <DATA>;
my $RouterOutput = join ' ', @RouterOutput;

my ( $SwitchName, $SwitchIP ) =
  $RouterOutput =~ /Device\s+ID:\s+([^\s]+).+IP\s+address:\s+([^\s]+)/
+s;

say "$SwitchName\n$SwitchIP";


__DATA__
Device ID: switch1.Core-3750.abc.com
Entry address(es):
  IP address: 10.10.10.10
Platform: cisco WS-C3750G-12S,  Capabilities: Router Switch IGMP
Interface: GigabitEthernet1/0/28,  Port ID (outgoing port): GigabitEth
+ernet2/0/7
Holdtime : 145 sec

Version :
Cisco IOS Software, C3750 Software (C3750-IPSERVICESK9-M), Version 12.
+2(55)SE4, RELEASE SOFTWARE (fc1)
Technical Support: http://www.cisco.com/techsupport
Copyright (c) 1986-2011 by Cisco Systems, Inc.
Compiled Tue 06-Sep-11 02:59 by prod_rel_team

advertisement version: 2
Protocol Hello:  OUI=0x00000C, Protocol ID=0x0112; payload len=27, val
+ue=00000000FFFFFFFF01022507000000000000A8B1D400F080FF0000
VTP Management Domain: 'networks'
Native VLAN: 1
Duplex: full

Output:

switch1.Core-3750.abc.com
10.10.10.10