if ($zeile =~ m/&\[[1-9]{7}/ ) {
....
}