C:\temp>cat -A foo.txt
foo$
bar$
baz$

C:\temp>perl -le "chomp(@a=<>);print for map qq|<$_>|, @a" foo.txt | cat -A
<foo>^M$
<bar>^M$
<baz>^M$

##</code><code>##

tilde:~ [11:19:27]$ cat -A foo.txt
foo^M$
bar^M$
baz^M$
tilde:~ [11:19:47]$ perl -le 'chomp(@a=<>);print for map qq|<$_>|, @a' foo.txt | cat -A
<foo^M>$
<bar^M>$
<baz^M>$