perl-scripts/JAPH/log_japh.pl

print chr for unpack q((a2)*), substr log(18747683), 3, 8;