#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Version: 1.0
# Changes some MacOS-umlauts to ISO-8859-1 umlauts
# 

die "Usage: $0 filename\n"       unless($ARGV[0]);

open(IN_FILE,"<$ARGV[0]") || die "Cannot open $ARGV[0] for input\n";
while(<IN_FILE>){
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
      print($_);
   }
close IN;