#!/afs/athena/contrib/perl/perl
# usage:  snoop -x50,8 -i <file> | ./table.pl > matlab_data

while (<>) {
    substr($_, 50) = '';
    ($z, $a, @nums) = split(/\s+/, " $_");
    if ($a eq "0:") {
	for $i (@nums) {
	    printf " %6d", hex($i);
	}
	print "\n";
    }
}