...
 $text =~ s/[\000-\009]/ /g;
 ...
}

##</code><code>##

 ...
 $text =~ s/[\000-\000]/ /g; # does nothing
 $text =~ s/[9]/ /g;
 ...