Select Code to Download

   my $len= 0;
   $text =~ s{(\s+)|([^\s<&]+)|(<[^<>]*>)|(&#?\w{1,10};)|(.)}{
...
   }egis;

   return $text;