#!/usr/bin/perl

open (DATOS, "<enero.dat");
open (ARCHIVOS, ">enero_cero.dat");

while($lineas=<DATOS>){
    chop($lineas);
    @datos=split(" ",$lineas);
    if ($datos eq NaN) {
        NaN == 0;
        print ARCHIVOS "@datos\n";
    }
}
close (DATOS);

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

while (<DATA>) {
    s/NaN/0  /g;

    print;
}

__DATA__
2005  1  24  11  11.65  40.98  5.02  143.03  -1.118  745.4
2005  1  24  12  12.57  41.48  4.71  152.10  -0.135  745.5
2005  1  24  13  NaN    NaN    NaN  NaN      NaN     NaN
2005  1  24  14  15.26  27.96  2.33  187.83  -3.143  745.6

open my $DATOS, '<', 'enero.dat' or die $!;
open my $ARCHIVOS, '>', 'enero_cero.dat' or die $!;

while(my $linea = <$DATOS>){
    chop($linea);

    #Reemplazamos los NaN por 0
    $linea =~ s/NaN/0  /g;

    print {$ARCHIVOS} $linea, "\n";
}

close ($ARCHIVOS);
close ($DATOS);