Regex required

$var = 'Please enter Certificate Signing Request(CSR): Press <Enter> w
+hen done
MIICxjCCAa4CAQAwgYAxFzAVBgNVBAMTDnRlc3QtY2VydC11c2VyMQswCQYDVQQG
EwJVUzELMAkGA1UECBMCTkMxDDAKBgNVBAcTA1JUUDEPMA0GA1UEChMGTkVUQVBQ
MQwwCgYDVQQLEwNDU0kxHjAcBgkqhkiG9w0BCQEWD3VzZXJAbmV0YXBwLmNvbTCC
ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAK8ICjh7p3ATkfZhabMvpgus
w6/qqyLqyguM9dB5emr1e08y70fx9EL6FZ9uXMzm2K5QtZ7hF/yEvv5N3kxMjq7q
uMx13okKYqhnC266CIZs3a+Z5g72MnRHsQwffIOB9tvY0h9KjvICSXbdYj8w4I7E
7hI8EDxdwXaUC7SZapFrueRPLyCMxQh6OqRxUZdxT9zXh/hEYVy2GRLMq00/QcUR
qPTuSPfbzfTXVl7tdIGZmH7z9/wKwf2UZbtQ4LSJxGIyfMNnT5DJmEOgmy8fBMXh
AhDfFOANKsZHQSszAS/z6VRHWNoTsTNQGSD9JGApnKSKBsRt4CG4Yu6sh7kpSmkC
AwEAAaAAMA0GCSqGSIb3DQEBCwUAA4IBAQAF3/sC4XNdYnh1bzUN1CYHJyjRPzGv
oNxIBmAw2p/huLkJA7JttNn8xQ9lwrMw/yE3MVs4Q2UOk8Ku0XxG6dt50uZjF4sA
s3Ck2qPG/ptoOQr4QuYBxnZXVhe0k0LqWIDI+xtoTYxqYwSEe5vOImdN8u9EkJSD
Sv7L0bKqnC2N86RjupaS8stRyefkaOmRxJfA7In0IyYDr/5yDzEnQLJK+T+Ijtgi
aWKLLW2sihdBsEgG4uJAQOa4rDfNco4FHmrIZOoYPfROWkCGbCerJKgzpN8JWluN
w/QpewM+x9cdmDpJ+eOQyigsCDnkfjZEpHLVxFxQHS7CaDu2WfxGa2iv


Signed Certificate: :
-----BEGIN CERTIFICATE-----
MIIDrzCCApegAwIBAgIET6JuiTANBgkqhkiG9w0BAQsFADBjMRcwFQYDVQQDEw50
ZXN0LXJvb3QtY2VydDELMAkGA1UEBhMCVVMxCTAHBgNVBAgTADEJMAcGA1UEBxMA
MQkwBwYDVQQKEwAxCTAHBgNVBAsTADEPMA0GCSqGSIb3DQEJARYAMB4XDTEyDUw
MzExMzk1M1oXDTEyMDYwMjExMzk1M1owgYAxFzAVBgNVBAMTDnRlc3QtY2VydC11
c2VyMQswCQYDVQQGEwJVUzELMAkGA1UECBMCTkMxDDAKBgNVBAcTA1JUUDEPMA0G
A1UEChMGTkVUQVBQMQwwCgYDVQQLEwNDU0kxHjAcBgkqhkiG9w0BCQEWD3VzZXJA
bmV0YXBwLmNvbTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAK8ICjh7
p3ATkfZhabMvpgusw6/qqyLqyguM9dB5emr1e08y70fx9EL6FZ9uXMzm2K5QtZ7h
F/yEvv5N3kxMjq7quMx13okKYqhnC266CIZs3a+Z5g72MnRHsQwffIOB9tvY0h9K
jvICSXbdYj8w4I7E7hI8EDxdwXaUC7SZapFrueRPLyCMxQh6OqRxUZdxT9zXh/hE
YVy2GRLMq00/QcURqPTuSPfbzfTXVl7tdIGZmH7z9/wKwf2UZbtQ4LSJxGIyfMNn
T5DJmEOgmy8fBMXhAhDfFOANKsZHQSszAS/z6VRHWNoTsTNQGSD9JGApnKSKBsRt
4CG4Yu6sh7kpSmkCAwEAAaNNMEswCQYDVR0TBAIwADAdBgNVHQ4EFgQUaoEOtVGR
nf8ULhgVoVsI8hQkdkgwHwYDVR0jBBgwFoAUDlldeZKLPq8sUt8UaTuwZM+83Ucw
DQYJKoZIhvcNAQELBQADggEBAAyXEhBGBy+imJvcqejf5BGwYSIop6kqpF2SywRZ
YkI+YBAHeIG31Ig/dp7uefXFSCRhacE2bBdy2uniOTSVdh6RYh7cE2l9VMEaY1nO
p1M7mM2Pa2Adti9ZSwzhwxjRcOD/qSrN3DR/EjuPFdPT1EyNvSOsw/2edsVWcAKp
KB7MLblfq1zfxkAKMIO0vRJ4fVAyhke2pnWoz2plX86Vqv2Nv9Prw8V6iNpQrMCE
2O9KfqEP/Z3oHyHFcvgouVfe2caWBTtZeLFVwodf0GhRTtkM4zMkvfcOUr2utybp
Gxqf/KABolKX1sZ6SSC16LkuR7OoJ7YBUMhrp+wjf/zjWCI=

-----END CERTIFICATE-----'
[download]

Require a regex to match and obtain the complete string after "-----BEGIN CERTIFICATE-----" and before "-----END CERTIFICATE-----"

if ($var =~ /Signed(.*)\s+(.*)\s+(.*)/) {
        print"$3\n";
}
[download]

Comment on Regex required Select or Download Code
Re: Regex required by bobf (Monsignor) on May 03, 2012 at 18:11 UTC
Welcome to the Monastery, vaibhav07! Please look over the information located beneath the text box that you used to post your question. In particular, Please read these before you post! How do I compose an effective node title? How do I post a question effectively? Markup in the Monastery In general, Monks like to see what you've tried before they offer code of their own. If you can edit your post a bit I think responses to your question will come quickly.	[reply]
Re: Regex required by sauoq (Abbot) on May 03, 2012 at 18:38 UTC
`perl -nle '/-{5}BEGIN\sCERTIFICATE-{5}(.*?)-{5}END\sCERTIFICATE-{5}/s and print $1'` `-sauoq "My two cents aren't worth a dime.";`	[reply] [d/l]
Re: Regex required by Anonymous Monk on May 04, 2012 at 07:51 UTC
You can answer your own question if you read http://perldoc.perl.org/perlintro.html#Regular-expressions and quotemeta `my $start = ...; my $end = ...; my ( $between ) = $input =~ m/\Q$start\E(.+?)\Q$end\E/;` [download]	[reply] [d/l]


Think about Loose Coupling
	PerlMonks

Regex required

The best material for plates (tableware) is: