Как я могу искать и сортировать текстовые файлы с помощью Perl?

У меня есть простой файл журнала, который очень беспорядочный, и мне нужно, чтобы он был аккуратным. Файл содержит заголовки журнала, но все они перемешаны. Поэтому мне нужно отсортировать файлы журналов по заголовкам журналов. Нет статического количества строк - это означает, что нет фиксированного количества строк для каждого заголовка текстового файла. И я использую perl grep для сортировки заголовков.

Файлы журналов выглядят примерно так:

Car LogFile Header
<text>
<text>
<text>
Car LogFile Header
<text>
Car LogFile Header
<and so forth>

Я выполнил поиск / поиск простого алгоритма, но, похоже, он не работает. Кто-нибудь может помочь мне? Спасибо!

#!/usr/bin/perl

#use 5.010; # must be present to import the new 5.10 functions, notice 
#that it is 5.010 not 5.10


my $srce = "./root/Desktop/logs/Default.log";
my $string1 = "Car LogFile Header";
open(FH, $srce);
my @buf = <FH>;
close(FH);
my @lines = grep (/$string1/, @buffer);

После выполнения кода на терминале нет результатов. Есть идеи?