Select Code to Download

% perl -le '@arr = 1..10; print @arr; print "@arr"'
12345678910
1 2 3 4 5 6 7 8 9 10

% perl -le '$, = ""; print 1..10' 
12345678910
...

% perl -le '$, = " abc "; print 1..10' 
1 abc 2 abc 3 abc 4 abc 5 abc 6 abc 7 abc 8 abc 9 abc 10

{  # set up new enclosing scope since we are modifying globals
   local $,;            # temporarilly set $, back to the empty string
...
   print @linesHead;    # <- wont see extra spaces here...
   print "</textarea></center>\n"; 
}  # end enclosing scope... $, is back to its old value