open my $file, '<', $filename or die "Could not open $filename $!.\n";
my @extract;
FILE:
while (<$file> ) {
    chomp;
    if ( /BEGIN-CERTIFICATE/ .. /END-CERTIFICATE/ ) {
        push @extraction, $_;
        next FILE;
    }
    last $FILE if @extract;
}