in reply to help me on seek and tell function
Discover perlfaq. Specifically from perlfaq5 read How do I change one line in a file/delete a line in a file/insert a line in the middle of a file/append to the beginning of a file?
Inplace editing may be what you want.
perl -pi.bak -e 's/this string/that string/g' some.file
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (432 votes). Check out past polls.