#!/usr/bin/env perl

$nlines = "";
$olines = "";
$f = 0;

while (<>)
{
    if (/^([0-9a-fA-F]{2})\b/)
    {
	$x = hex($1);

	$f = 1 if ($x > 127);

	$olines = "$olines$1\n";
	
	$nlines = sprintf("%s%02X\n", $nlines, $x * 2);

    }
    else
    {
	if (length $nlines > 0)
	{
	    if ($f) { print $olines; }
	    else { print $nlines; }

	    $olines = ""; $nlines = ""; $f = 0;
	}
	print $_;
    }
}