#! /usr/bin/perl

while (<>) {
	s/&(.)grave;/$1/g;
	s/&(.)acute;/$1/g;
	s/&(.)circ;/$1/g;
	s/&(.)tilde;/$1/g;
	s/&(.)uml;/$1/g;
	s/&(.)cedil;/$1/g;
	s/&(.)ring;/$1/g;
	s/&(.)caron;/$1/g;
	s/&(.)slash;/$1/g;
	s/&(..)lig;/$1/g;
	print;
}