#!/usr/bin/perl -w
use warnings;
use strict;
binmode(STDOUT , ":encoding(cp437)" );

my @txt = qx(dir /B *.txt);

foreach (@txt) {
	chomp $_;
	my $ctxtf = qx(type $_);
	$ctxtf =~ /.*\x{00f8}(1?[0-9])\. findewort.*/;
	print "\n==> Ergebnis: ".$1."\n";

}