#!/usr/bin/perl -w
# Script: get_certs.pl

use strict;
use warnings;

my @a;
my $fh;
my $i;
my $p;
my $fn;

sub write_to_file;

chomp ( @a=<DATA> );

for $i ( 0 .. $#a ) {
  if ( $a[$i] =~ m/BEGIN CERTIFICATE/ ) {
    $p  = $i + 1;
    $fn = $a[$p] . ".cert";
    open ( $fh, ">$fn" );
    write_to_file( "$a[$i]" );
  } elsif ( $a[$i] =~ m/END CERTIFICATE/ ) {
    write_to_file( "$a[$i]" );
    close $fh;
  } else {
    write_to_file( "$a[$i]" );
  }
}
sub write_to_file {
  print $fh "$_[0]\n";
}

__DATA__
--------------------BEGIN CERTIFICATE------------------
MIID2TCCAsGgAwIBAgIDAjbQMA0GCSqGSIb3DQEBBQUAME
4NwdzxoQ2KDLX4z6DOW/cf/lXUQdpj6HR/oaToODEj+IZpWYeZqF
                             :                             
                             :
6wJHzSXj8gYETpnKXKBuervdo5AaRTPvvz7SBMS24CqFZUE+ENQ=
--------------------END CERTIFICATE-----------------------
--------------------BEGIN CERTIFICATE----------------------
MIIDVDCCAjygAwIBAgIDAjRWMA0GCSqGSIb3DQEBBQUAME
IxCzAJBgNVBAYTAlVTAq45pmp0sdhsdkslswqpywmcperewe
                           :                             
                           :                              
hw4EbNX/3aBd7YdStysV6drE57xNNB6pXE0zX5IJL4hmXXeXx
x12E6nV5fEWCRE11azbJHFwLJhWC9kXtNHjUStedejV0NxPNO3=
--------------------END CERTIFICATE-----------------------

$ ls *.cert
MIID2TCCAsGgAwIBAgIDAjbQMA0GCSqGSIb3DQEBBQUAME.cert  MIIDVDCCAjygAwIBAgIDAjRWMA0GCSqGSIb3DQEBBQUAME.cert

$ cat MIID2TCCAsGgAwIBAgIDAjbQMA0GCSqGSIb3DQEBBQUAME.cert
--------------------BEGIN CERTIFICATE------------------
MIID2TCCAsGgAwIBAgIDAjbQMA0GCSqGSIb3DQEBBQUAME
4NwdzxoQ2KDLX4z6DOW/cf/lXUQdpj6HR/oaToODEj+IZpWYeZqF
                             :
                             :
6wJHzSXj8gYETpnKXKBuervdo5AaRTPvvz7SBMS24CqFZUE+ENQ=
--------------------END CERTIFICATE-----------------------

$ cat MIIDVDCCAjygAwIBAgIDAjRWMA0GCSqGSIb3DQEBBQUAME.cert
--------------------BEGIN CERTIFICATE----------------------
MIIDVDCCAjygAwIBAgIDAjRWMA0GCSqGSIb3DQEBBQUAME
IxCzAJBgNVBAYTAlVTAq45pmp0sdhsdkslswqpywmcperewe
                           :
                           :
hw4EbNX/3aBd7YdStysV6drE57xNNB6pXE0zX5IJL4hmXXeXx
x12E6nV5fEWCRE11azbJHFwLJhWC9kXtNHjUStedejV0NxPNO3=
--------------------END CERTIFICATE-----------------------