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; }