Help for this page
0.0.0.0/0 *[Static/5] 02:30:27 > to 192.168.4.126 via em0.0 ... > to 10.0.0.110 via em2.0 [OSPF/10] 01:46:15, metric 3 > to 10.0.0.106 via em1.0
while(my $line = <DATA>) { if(/\bStatic\b/){ ... } } print @IPS;