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