#!/usr/bin/perl

open LOG, "/var/opt/httpd/logs/access_log" or die "Can't open access_log: $!";

while(<LOG>) {
  next if !/1979\/ /;
  next if /sacramento/&/psi\.net/;
  s/\].*$/\]/;
  print $_;l
}

close LOG;