my @sorton;
my @lines= grep {
    if(  m/^(.+?)\((\d+)\)\s-\s\[(.+?)\].+?"(.*?)"\.$/  ) {
        push @sorton, $1.pack("N",$2).$3;
        1;
    }
} <DATA>;
my @idx= sort { $sorton[$a] cmp $sorton[$b] } 0..$#sorton;
foreach(  @lines[@idx]  ) {
    print $_;
}