$i = $. / 2;

	print $zeile if $i =~ m/\./;