>ver

Microsoft Windows XP [Version 5.1.2600]

>perl -le"print length $/"
1

>perl -le"$,=' '; print map { uc unpack 'H*', $_ } $/=~/./sg"
0A

##</code><code>##

>>foo echo foo

>debug foo
-rcx
CX 0005
:
-d100 l5
0B0B:0100  66 6F 6F 0D 0A                                    foo..
-q

>perl -le"print length <>" foo
4

>perl -le"$,=' '; print map { uc unpack 'H*', $_ } <>=~/./sg" foo
66 6F 6F 0A