$str =~ s|<(\d+)>|<$$html{$1}>|g;