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