use 5.012;
use warnings;

my $needle = 'test';

open my $haystack, '<', 'TestDatei'
  or die "Failed to open input file: $!";
  
while (my $line = <$haystack>) {
  chomp $line;
  next unless (index($line, $needle) >= 0);
  next unless ($line =~ m/Zahlenfolgeanfang="(.+?)"Zahlenfolgeende/);
  my $zahlenfolge = $1;
  say $zahlenfolge;
}