How to rewrite the contents of the file using perl?

[finddata]

This node falls below the community's threshold of quality. You may see it by logging in.

[Corion]

You keep talking about "rename the contents of the file", but you cannot rename the contents of a file.

Please make up your mind whether you want to:

1. change the name of a file ("rename")
2. change the content of a file ("rewrite")

Also, your code contains lots of stuff that has no bearing on whatever your problem is. Please, as you have been told many times already, provide sufficient input data, what your program does and also what you think your program should do instead.

We can only provide you help if you provide us enough context. Even if this were a code writing service, you still have to tell us exactly what the program should do.

[finddata]

i had added input file

[Corion]

Thank you for adding an example input file.

Please re-read my questions again. There are many more questions that you did not yet answer. Please answer these so that we can provide you better advice.