Посмотрите ответ на вопрос "How can I read in an entire file all at once?" в perlfaq, вроде это то, что нужно.
