Select Code to Download

 if ( -1 != index $log, '198.167.1.10' ) {
     push @ip, $log;
...
 push @ip, $log if $log =~ /198\.167\.1\.10/;
 print $log     if $log =~ /198\.167\.1\.10/;