Check out perldoc -q 'insert a line' (the question in question is in perlfaq5, "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?" if the -q doesn't work).