Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    say "$n => ";
    say "\t"x2, join " ",  hexgroups($n, $_) for 1,2,3,4;
}

Select or download this

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/hex_groups.pl 
0 => 
...
        0004 a817 c800

Compilation finished at Mon Aug 30 16:28:18