#!/usr/bin/perl -w  
use strict;
 
my $calog = "/var/log/ca/ca.log";
my $line;
my @certs;
 
open LOG, "$calog" or die "Can't open $calog: $!\n";
while ($line = <LOG>){ 
     if ($line =~ m/added/) {
      @certs = $line =~ m!\'[-.\w]+\'!g;
      print @certs; 
 } #end if
} #end while