#!/usr/bin/perl -w
use strict;

while(<>) {
    chomp;
    print "$_";
    if (/[0-9a-f]{8}: (.+)/) {
	my $bytes=$1;
	print " \"";
	foreach my $byte (split(/ /, $bytes)) {
	    my $ch = chr(hex($byte));
	    if ($ch =~ /[[:print:]]/) {
		print $ch;
	    } else {
		print ".";
	    }
	}
	print "\"";
    }
    print "\n";
}
