#!/usr/bin/perl -n

use POSIX;
#           0: 0004 9610 b740 0003 ba2e 1dce 0800 4500    .....@........E.

if (/^[ 0-9]/) {
    s/^ *//;
    @F = split(/\s+/);
    my ($delta) = $F[1];
    $time += int($delta * 100000);
    $subseconds = $time - int($time);
    printf ("%s.%05d\n", strftime("%H:%M:%S", gmtime($time / 100000)), $time % 100000);
}
if (/^	\s*([0-9]+): /) {
    $n = $1;
    s/^\s+[0-9]+: //;
    $data = substr($_, 0, 8 * 5);
    $data =~ s/(\S\S)(\S\S)/$1 $2/g;
    printf "%08x %s\n", $n, $data;
}
