For cat -A emulation, try this:

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.