s{(<[^>]+>)}{
   (my $x = $1) =~ tr/ /_/;
   $x;
}eg;