#!/usr/bin/perl

if (scalar(@ARGV)) {
	foreach $file(@ARGV) {
		open (IN,$file);
		&undump(*IN);
		close (IN)
	}
}
else {
	&undump(*STDIN);
}

sub undump {
	local(*IN)= @_;
	local($_);
	while (<IN>) {
#		next unless s/^([0-9a-f]+)://;
		s/^([0-9a-f]+)://i;
		s/[^\-\s0-9a-f].*$//i;
		@match= /(\b[0-9a-f][0-9a-f]\b)/ig;
		print pack("H2" x scalar(@match), @match);
	}
}