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