open (FILE, ">:encoding(iso-8859-1)", "$file");

##</code><code>##

“ becomes \x{201c}
– becomes \x{2013}