foreach my $line (@certuil_output) { my $cert; my $trust; if ($line =~ /(^$|SSL,S\/MIME,JAR\/XPI|Certificate Nickname)/i) { next; } if ($line =~ /(.*)\s+(\w+,\w+,\w+)$/) { $cert = $1; $trust = $2 } elsif ($line =~ /(.*)\s+,,\s+$/) { $cert = $1; $trust = “,,”; } else { print “Unmatched line: $line\n”; } if ($cert && $trust) { print "$cert\t$trust\n"; } }