Может кто-нибудь подсказать, как удалить последние n строк из файла в Perl? У меня очень большой файл размером около 400 МБ, и я хочу удалить из него около 125 000 последних строк.

Я работал над сценарием, который должен создавать foo для первых двух строк и bar для последних трех. Здесь я столкнулся с двумя проблемами. Как заставить Perl игнорировать двойные кавычки вокруг первого foo? Как мне заставить его...