#! /usr/bin/perl -wl
# "REGdecodeSZ" - decode Microsoft .REG -style null-terminated
#   strings encoded as comma-delimited sequences of hex bytes.
use strict;
my ($instr, @barr);
chomp($instr = <STDIN>) 
   unless( $instr = $ARGV[0x0] );
my $to = 0x1 * (@barr=split q/,/ , $instr);
print join '',
    (
	   map { chr hex } @barr[
	           0x0 ..  ($to ? $to - 0x2
			                : $to) ]
    );
__END__

This Program is Free Software,
(C)2003 Soren Andersen <somian -AT- pobox -DOT- com>
and it may be used under the same terms as Perl itself.