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