my $ip = qr/\b192.168.3.5\b/;
my $line = 0;
my @fwlog;
my $logfile = "/tmp/05jul01.drop";
 
open LOG, "$logfile" or die "Can't open $logfile: $!\n";
while ($line=<LOG>){
   chomp($line);
   while($line =~ $ip) {
   print "$line\n";
   #push (@fwlog,$line);
  }
}
close LOG;
#print "@fwlog\n";