#!/usr/bin/perl -w

open(F, $ARGV[0]);
@w = <F>;
close(F);

open(F, $ARGV[0]);
@v = <F>;
close(F);

foreach(@w) {
	chomp;
	$aktuelles_wort = $_;
	foreach(@v) {
		chomp;

		if ($aktuelles_wort eq $_) {
			next;
		}
		
		$trans = $org = $_;
		$trans =~ s/ó/o/gi;
		$trans =~ s/á/a/gi;
		$trans =~ s/í/i/gi;
		$trans =~ s/é/e/gi;
		$trans =~ s/ú/u/gi;
				
		if ($aktuelles_wort eq $trans) {
			print "=> TREFFER: $trans / $org\n";
		}
	}
}