#!/afs/athena/contrib/perl/p

$| =1;
while(<>){
if(/\>/){
    split;
    print("\n$_[1] --> $_[3]  ");
}
else{
    split;
    for $h (@_){
	if($h){
	$n = hex(substr($h, 0, 2));
	$x = (pack('c', $n));
	if(length($h)==4){
	$n = hex(substr($h, 2, 2));
	$y=(pack('c', $n));}}
	else{$y='';}
	$x =~ s/[^\w \$\.\?]//g;
	$x = '' if (length($x) !=1);
	$y =~ s/[^\w \$\.\?]//g;
	$y= '' if (length($y) !=1);
    print("$x$y");
	$x = $y = '';
    }
}
}
