my $re = '\b(' . join('|', sort { $b cmp $a } keys %id_for) . ')\b';