use strict;
open ( LOG, "C:\logs\log.log" ) or die "Opening file, $!";
my $count = scalar( grep( /210\.55\.54\.33/, <LOG> ) );
close LOG or die "closing file, $!";