#!/usr/local/bin/perl
while(<>){
	chop;
	$s = '';
	while($_ ne ''){
		if(s/^[\x00-\x7f]//){
			$s .= $&;
		}
		elsif(s/^.\\//){
			$s .= "$&\\";
		}
		else {
			s/^..//;
			$s .= $&;
		}
	}
	print "$s\n";
}
