#!/usr/bin/perl

use strict;
use warnings;

undef $/;         # read whole file at once
our $cert = <>;
our ($info) = $cert =~ m/X509v3 Basic Constraints:\s+([^\n]+)/;
print "Constraints = $info\n";