Sep 12 17:30:02 nt-ca-na CA(Domain-CA): Certificate name 'jsmith.2048' added to database.
Sep 12 20:09:37 nt-ca-na CA(Domain-CA): Certificate name 'ksmith.2048' added to database.
Sep 12 21:25:30 nt-ca-na CA(Domain-CA): Certificate name 'ssmith.2048' added to database.

##</code><code>##

'jsmith.2048''ksmith.2048''ssmith.2048'

##</code><code>##

#!/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