#!/usr/bin/perl -w
use strict;
my $line;
while(defined($line=<>)) {
	$line =~ s/^[0-9A-Fa-f]{8}: +//s or die;
	while($line =~ s/^([0-9A-Fa-f]{2})([0-9A-Fa-f]{2}) //s) {
		print pack("H2",$1),pack("H2",$2);
	}
	if($line =~ s/^([0-9A-Fa-f]{2})  //s) {
		print pack("H2",$1);
	}
}
0;