>ver

Microsoft Windows XP [Version 5.1.2600]

>perl -le"print length $/"
1

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