open (LOG, "$calog") or die "Can't open $calog: $!\n";
while ($line = <LOG>){ 
     if ($line =~ /\'([\w.]+)\' added/) {
      push(@certs, $1);
 } 
}