open (in,"Testdatei2");
@datei=<in>;
close in;
my $a = "$datei[0]";
my $substring = $a =~ /Zahlenfolgeanfang="(.+?)"Zahlenfolgeende/;
open (out,">Ergebnis");
print out "$1";
close out;
exit;