diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 4715e9dc4d9e..243f7ddf5fe9 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -1096,7 +1096,7 @@ sub _read_report {
     local $Text::Wrap::huge = 'overflow';
     while (<REP>) {
         if ($::HaveWrap && /\S/) { # wrap() would remove empty lines
-            $content .= Text::Wrap::wrap(undef, undef, $_);
+            $content .= Text::Wrap::wrap('', '', $_);
         } else {
             $content .= $_;
         }