Help for this page
use strict; use warnings; ... say "$n => "; say "\t"x2, join " ", hexgroups($n, $_) for 1,2,3,4; }
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