diff --git a/contrib/purge-tab-indents.pl b/contrib/purge-tab-indents.pl
index f7fa6ebd1a..7e576f4199 100755
--- a/contrib/purge-tab-indents.pl
+++ b/contrib/purge-tab-indents.pl
@@ -89,7 +89,7 @@ foreach my $f (@files) {
 
     my @expanded_lines = expand(@lines_with_tabs);
     open(TEMP, ">temp.txt");
-    print TEMP join("\n",@expanded_lines),"\n";
+    print TEMP @expanded_lines;
     close(TEMP);
     system("mv temp.txt $f");
 }