in reply to need help in editing multiple word in a file
Do you mean seek(IN,0,0);? This will place you at the start of the IN file, allowing you to read it again. See seek for more info.
Sorry if my advice was wrong.
In Section
Seekers of Perl Wisdom