Select Code to Download

c:\@Work\Perl\monks>perl -le
"use strict;
...
 { local $, = q( );  print unpack '(H2)*', $string; }
"
31 32 33 34 35 36 1c

c:\@Work\Perl\monks>perl -le
"use strict;
...
 print join ' ', unpack '(H2)*', $string;
"
31 32 33 34 35 36 1c