http://www.perlmonks.org?node_id=13423


in reply to script adding spaces into a file for no reason...

When you print an array like
print <<END; <textarea>@text</textarea> END
it will print all lines of the array joined by a space. Instead, you can use: <textarea>@{[join("",@text)]}</textarea>