diff --git a/crypto/perlasm/ppc-xlate.pl b/crypto/perlasm/ppc-xlate.pl
index d62ae0106..fff9c004f 100644
--- a/crypto/perlasm/ppc-xlate.pl
+++ b/crypto/perlasm/ppc-xlate.pl
@@ -256,8 +256,8 @@ my $darn = sub {
 };
 
 print <<___;
-# This file is generated from a similarly-named Perl script in the BoringSSL
-# source tree. Do not edit by hand.
+// This file is generated from a similarly-named Perl script in the BoringSSL
+// source tree. Do not edit by hand.
 
 #if defined(__has_feature)
 #if __has_feature(memory_sanitizer) && !defined(OPENSSL_NO_ASM)
diff --git a/crypto/perlasm/x86_64-xlate.pl b/crypto/perlasm/x86_64-xlate.pl
index 04abd0b44..e3745f898 100755
--- a/crypto/perlasm/x86_64-xlate.pl
+++ b/crypto/perlasm/x86_64-xlate.pl
@@ -1136,7 +1136,7 @@ my $endbranch = sub {
 ########################################################################
 
 {
-  my $comment = "#";
+  my $comment = "//";
   $comment = ";" if ($masm || $nasm);
   print <<___;
 $comment This file is generated from a similarly-named Perl script in the BoringSSL
diff --git a/crypto/perlasm/x86asm.pl b/crypto/perlasm/x86asm.pl
index 51f37664c..c22421f9a 100644
--- a/crypto/perlasm/x86asm.pl
+++ b/crypto/perlasm/x86asm.pl
@@ -275,7 +275,7 @@ sub ::asciz
 
 sub ::asm_finish
 {   &file_end();
-    my $comment = "#";
+    my $comment = "//";
     $comment = ";" if ($win32);
     print <<___;
 $comment This file is generated from a similarly-named Perl script in the BoringSSL