diff --git a/test/markup/perl/default.expect.txt b/test/markup/perl/default.expect.txt
index 715278d4fe..149bd1f41e 100644
--- a/test/markup/perl/default.expect.txt
+++ b/test/markup/perl/default.expect.txt
@@ -25,6 +25,10 @@
   <span class="hljs-comment"># GH-117</span>
   <span class="hljs-keyword">my</span> <span class="hljs-variable">$g</span> = <span class="hljs-keyword">glob</span>(<span class="hljs-string">&quot;/usr/bin/*&quot;</span>);
 
+  <span class="hljs-comment"># GH-3934</span>
+  <span class="hljs-keyword">print</span> <span class="hljs-string">&quot;@&quot;</span>;
+  <span class="hljs-keyword">print</span>;
+
   <span class="hljs-keyword">return</span> <span class="hljs-variable">$o</span>;
 }
 
diff --git a/test/markup/perl/default.txt b/test/markup/perl/default.txt
index 3b08442d07..b98a443f76 100644
--- a/test/markup/perl/default.txt
+++ b/test/markup/perl/default.txt
@@ -25,6 +25,10 @@ sub load
   # GH-117
   my $g = glob("/usr/bin/*");
 
+  # GH-3934
+  print "@";
+  print;
+
   return $o;
 }