perl -pe 's/([\cA-\cI\cK-\cZ])/"^" . chr( ord($1) + 64 )/eg; s/\n/\$\n/s'
Note that cat -A (at least on my system) adds "$"s to mark end of lines.
To shred CRs, use this:
perl -pe 's/\r//'
Update: removed redundant \t treatment.
In reply to Re: nonprinting chars
by gaal
in thread nonprinting chars
by stabu
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |