如何使用Perl对文本文件进行grep和排序？

我有一个简单的日志文件非常混乱,我需要它整洁.该文件包含日志标题,但它们都混杂在一起.因此,我需要根据日志标题对日志文件进行排序.没有静态行数 – 这意味着文本文件的每个标题没有固定数量的行.我正在使用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);

执行代码后,终端没有显示结果.有任何想法吗？

my $srce = "./root/Desktop/logs/Default.log";
 my $string1 = "Car LogFile Header";

 open my $fh,'<',$srce or die "Could not open $srce: $!";

 my @lines = sort grep /Q$string1/,<$fh>;
 print @lines;