sub by_level
{
    my $tempa =~ s/^<.*">//;
    $tempa =~ s/<\/.*>//;
    my $tempb =~ s/^<.*">//;
    $tempb =~ s/<\/.*>//;
    substr($a,0,2) cmp substr($b,0,2) ||
    $tempa cmp $tempb;
}