$text =~ s/[\000-\011\013-\037\177-\377]/ /g;

##</code><code>##

    s/[^[:print:]\n]/ /g;