Ah, ok... I understood from the code that you are trying to join the strings, from the concatenation operator ^_^. I should make it a habit to make notice of the english...

$_ = "my newline\n" if ($i == 3);
print TEMP $_;
[download]

hope this works...

-nuffin zz zZ Z Z #!perl