$ perl -E '$TXT = qq{\cD\cAFoo\x1e};$TXT =~ s/[\x00-\x08\x0b\x0c\x0e-\x1f\x7f]+/<c>/g;say $TXT'
<c>Foo<c>