(my $rev_a = $a) =~ tr/A-Za-z/a-zA-Z/;
    (my $rev_b = $b) =~ tr/A-Za-z/a-zA-Z/;

    return $rev_a cmp $rev_b;