Select Code to Download

$xml =~ s{(?:(<!\[CDATA\[.*?\]\]>)|(<[^\s?!>]+))}{ 
  $1 or do {(my $tagname = $2 ) =~ tr/.//d;$tagname;} }seg;
...
$xml =~ s{<(?:(!\[CDATA\[.*?\]\]>)|(<[^\s?!>\.]+\.[^\s?!>]+))}{
  '<'. ($1 or do {(my $tagname = $2 ) =~ tr/.//d;$tagname;} ) }seg;

my $XML = <<'__XML__';
<?xml version="1.0"?>
...
       one: 10 wallclock secs ( 9.53 usr +  0.00 sys =  9.53 CPU) @ 10
+492.08/s (n=100000)
     three:  2 wallclock secs ( 1.86 usr +  0.00 sys =  1.86 CPU) @ 53
+792.36/s (n=100000)
       two:  6 wallclock secs ( 6.27 usr +  0.00 sys =  6.27 CPU) @ 15
+959.14/s (n=100000)