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