#!/usr/bin/perl
#
# $Id: xconv.pl,v 1.1.1.5 2001/11/30 07:06:22 toshi Exp $

while (<>) {
	chop;
	$l = $_;
	while ($l =~ /^(.*)\\(\d\d\d)(.*)$/) {
		$x = oct($2);
		$l = sprintf("%s%c%s", $1, $x, $3);
	}
	print "$l\n";
}