Subst $Id:...$ -> $Id$ (as in cvs ... -kk) in all the subdirectories.

[nethome.git] / bin / fromhex

#! /usr/bin/perl

use strict;
use warnings;

while (<>) {
        printf("%c",hex($1)) while ($_=~s/([[:xdigit:]]{2})//);
        }