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