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
Bought a souvenir
Emailed all my friends about it
Got blowed up
Hit him right dead in the jaw
Made it awkward
Took a selfie
Want to go home
Results (400 votes). Check out past polls.