Perl Community,
Once more thanks very much for spending precious time to look at my problem. When the input 
file is the text below, the replacements are made.
However the text below is record N�. 1 of a binary file. Data follows after this record.
When I apply the script to the binary file no replacement is made. A sample of a binary file
 is attached.
I will continue trying based on the valuable assistance I have received.
Zilore


rec 1:0:date 2009082400 TMP kpds5=11 kpds6=100 kpds7=850 levels=(3,82) grid=255 850 mb anl:
� TMP=Temp. [K]
� timerange 1 P1 0 P2 0 TimeU 1� nx 1303 ny 1 GDS grid 0 num_in_ave 0 missing 0
� center 98 subcenter 0 process 110 Table 1
� latlon: lat� 90.000000 to 0.000000 by 2.500000� nxny 1303
��������� long 0.000000 to 90.000000 by 2.500000, (1303 x 1) scan 0 mode 1
28 bdsgrid 1
� min/max data 268.918 284.917� num bits 14� BDS_Ref 268.918� DecScale 0 BinScale -1
0