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