while ($zeile =~ s/((?:2004|04).*?)(?:10){2,}(.*?)(?=1003)/${1}10$2/) {};