open IN, "<access.log" or die;
while (<IN>) {
  print if $_ =~ /^216\.122\.66\.112/;
}
close IN;