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