#!/usr/bin/perl -n
next if /^[\da-f]{8} *$/;
s/^[\da-f]{8}  +(.+?)  \|.{1,16}\|\s*$/ $1 \n/;
s/  \|.{1,16}\|\s*$/ \n/;
#print STDERR "$_\n";
s/(?:^.+?:)?\s*\%?([\da-f]{2})\s*/chr(hex($1))/gei;print

__END__
perl -ne 's/\%(..)/chr(hex($1))/egs; print'
date | hexdump -C | unhexdump