Help for this page
# loop for reading one column open (BINM,"<:raw"); read (BINM,$number,64); print OUTM "$number\t"; seek (BINM,64*$columns_number,1);
while (<MATRIX>) { chomp; my @numbers=split (/\t/,$_); # problem }
[+-]?inf NaN