#!/usr/bin/perl

while ( <> ) {
	chop;
	if ( /[ \t]{4}([0-9a-z]{4} .*$)/ ) {
		my $l = $1;
		print "\t\t$l";
		print " ";
		while ( $l =~ /([0-9a-z][0-9a-z])/ ) {
			my $h = $1;
			$l = $';
			my $c = hex( $h );
			# print "c=$c, h=$h";
			# print "c=$c";
			if ( 0x20 > $c || $c > 0x7f ) {
				$c = '.';
			} else {
				$c = sprintf ("%c",$c);
			}
			print $c;
		}
	} else {
		print;
	}
	print "\n";
}