$ cat -A foo
sub ^Mfoo ^M{ 1 ^M}^M