Select Code to Download

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

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