Help for this page

Select Code to Download

Select or download this

my $der = MIME::Base64::decode_base64(
  join "\n" =>
    grep { !/^-----(BEGIN|END)\s.*-----$/ }
      split /\n/, $pem
  );