diff --git a/lisp/ob-perl.el b/lisp/ob-perl.el
index 117782f35..d90ca181d 100644
--- a/lisp/ob-perl.el
+++ b/lisp/ob-perl.el
@@ -106,10 +106,11 @@ specifying a var of the same value."
     my $rt = ref $rv;
     if (qq(ARRAY) eq $rt) {
         local $\\=$/;
+        local $,=qq(\t);
 	foreach my $rv ( @$rv ) {
 	    my $rt = ref $rv;
 	    if (qq(ARRAY) eq $rt) {
-		print join q(|), @$rv;
+		print @$rv;
 	    } else {
 		print $rv;
 	    }