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

##</code><code>##

 while(my $line = <DATA>)
{
if(/\bStatic\b/){
      if(/\bStatic\b/){
            my $IP = $line =~ /\d+\.\d+\.\d+\.\d+/;
             push(@IPS, $IP);
}
else
{
}
}
}
print @IPS;