simple/tcpdump_tools/tcpdump2ascii

#!/usr/bin/perl

while(<>) {
	if (/^\t\t\t( [0-9a-f]{2,4})+$/) {
		@hex = split;
		foreach $i (@hex) {
			@c = pack("H4", $i);
			foreach $j (@c) {
				print "$j";
			}
		}
		print "\n";
	} else {
		print
	}
}