Help for this page

Select Code to Download

Select or download this

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