open (IN , "<hq_regio_neu.txt");
									
							my $num = 0;
					while ( my $line = <IN> ) {
					
					if(length($line)<=(length($element)+2)){
					
					if ( $num == 0 && $line =~ m/$element (\d+)/ ) {
						$num = $1;
								}
					elsif ( $num > 0 ) {
					print Out $line;
						$num--;
					}

						}

							
							}