sub two_way_sort {
    ($b =~ /\((\d+)/)[0] <=> ($a =~ /\((\d+)/)[0]
        ||
    lc($a)  cmp  lc($b)
}

my @unsorted_input;

while (my $line = <Input>) {
    [section here of some text edits]
    push @unsorted_input, $line;
}

my @sorted = sort two_way_sort @unsorted_input;