open (HAN , ">" ,'D:\RAM\perl\test') or die "$!";
while (<HAN>){
 s/e/\*\*/ig;
 print HAN ; 
}