use strict;
print "Vokal in SAMPA-Zeichen eingeben:\n";
my $vokal = <STDIN>;
chomp($vokal);


foreach my $file (<*.TextGrid>) {
	open (IN,"<$file") || die("File $file existiert nicht in diesem Ordner.\n");

		if ($file= $vokal) {
				
		
		print "ich bin ein Dateiname .\n";
	} else{
		print "oo.\n";
	}


}