s{(<.*?>)}{
  my $x = $1;
  $x =~ tr/ /_/;
  $x;
}eg;