Da bis jetzt keiner geantwortet hat, melde ich mich mal zu Wort. Dein Code erscheint richtig und ich wüsste nicht wo ein Performance-Problem sein sollte. Vieleicht ist es einfacher das ganze File in ein Array zu slurpen und dann die interessanten Inhalte zu greppen. Hängt von der Dateigröße ab. Mit Tie::File kannst du eine Datei auch direkt als Array ansprechen, was bei größeren Dateien aus Speichergründen interessant ist.