#! /usr/bin/perl

## NB only handles conversion to latin

$tilde = chr(193);
$circ = chr(194);

while (<>) {
    # s/\303(.)/chr(ord($1)+64)/ge;
	# s/\302//g;
    s/$tilde(.)/chr(ord($1)+64)/ge;
	s/$tilde//;
	print;
}