HI All, My code is:
$version1 = "JITENDRA"; tie @array,Tie::File,"$rtf1" or die($!); for(@array){ #print "Hi"; s/\%VERSIONS\%/$version1/g; } untie(@array); FILE: *********************************************************************** *Version *%VERSION%, Hello,HI *Installation Notes* The driver can be installed either during OS setup or as an update -- *Revision History* %VERSION% ************************************************************** In the above file, the first %VERSION% is not substitute but second one is repalced bt string JITENDRA. I am executing in windows OS. Could you please help me why it is not working. Regards, Jitendra