reverse sort keys %tr

I'd probably sort them by negative length and join them to a single regex:

my $regex = '('
          . join('|', sort { length $b <=> length $a } keys %tr)
          . ')';
$str =~ s=$regex=$tr{$1} // $1=ge;
[download]