while (my $line = <>) {

	$line =~ s/\x{00a9}/\\textcopyright/g;	# "©"
	$line =~ s/\x{2010}/\-/g;		# "&#8208;"
	$line =~ s/\x{fffd}/\\,/g;		# "&#65533;"
	$line =~ s/\x{03b4}/\$\\delta\$/g;	# "&#948;" 
	$line =~ s/\x{00c5}/\\AA\{\}/g;		# "Å"

	print $line;
}