0.0.0.0/0 *[Static/5] 02:30:27 > to 192.168.4.126 via em0.0 10.0.0.36/30 *[OSPF/10] 01:46:15, metric 2 > to 10.0.0.106 via em1.0 [BGP/170] 01:43:15, localpref 100, from 10.0.0.131 AS path: I 10.0.0.128/32 *[Static/5] 02:22:14 > to 10.0.0.110 via em2.0 [OSPF/10] 01:46:15, metric 3 > to 10.0.0.106 via em1.0 10.0.0.134/32 *[Static/5] 00:00:27 > to 10.0.0.110 via em2.0 [OSPF/10] 07:33:09, metric 5 > to 10.0.0.106 via em1.0 [BGP/170] 07:39:33, localpref 100, from #### open FILE, '<', "table.txt" or die $!; my $static = 0; my @IPS; while (){ push @IPS, $1 if /([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}) +/ and $static > 1; $static++ if /Static/; } print @IPS;