Problema con saltos de linea

[neodani]

Buenas,

Estoy creando un script que me transforma estos ficheros tipo CSS que están todos los estilos en una sola linea, en "legibles"...

Código:

body {font-family: Geneva,Arial,Helvetica,sans-serif;font-size: 12px;background: #fff;color: #000;}body.scrollbar-quirk {margin-right: 15px;}p {margin-bottom: 10px;}img, .img, .img:active, .img:hover, .img:visited {border: none;vertical-align: middle;background: transparent;}ins {background: #cfc;}del {background: #fcc;}br.spacer {font-size: 8px;}.leftAlign {text-align: left;}.rightAlign {text-align: right;}.leftFloat {float: left;}

Utilizo windows para ejecutarlo, y por consola me muestra correctamente los saltos, pero cuando abro el archivo de texto que he generado en la salida, no tiene los saltos de linea :S he probado con \n con \r y los dos juntos y nada.

¿Sabéis si es cosa de windows?

Código:

@array =open (FILE, 'estilo3.txt');
open(FILEHANDLE, ">salida.txt");
@registros = <FILE>;

foreach $elemento (@registros){
       #print "$elemento <br>\n";
	   @sub_strings = split(/}/, $elemento);
}
foreach $elemento (@sub_strings){
	print "$elemento}\r\n";
	print "\r\n";
	print FILEHANDLE "$elemento}";
}
close(FILEHANDLE);

Muchas gracias de antemano