# Open the file for reading.
open DATA, "$data_file" or die "can't open $data_file $!";
foreach(<DATA>)
{
	$bla .= $_;
}

@geraeteArray = split(/\nGerät\n/, $bla);

foreach(@geraeteArray)
{
	if ($_ =~ m/Allgemeine Projektinformationen/i)
	{
		next;
	}

	if ($_ =~ m/\nIP Adresse/i)
	{
		print DATAOUT "\n";
		$sloCnt=0;
		
		foreach(split(/\n/,$_))
		{
			if ($_ =~ m/IP Adresse/) 
			{
				$_ =~ s/IP Adresse //;
				$_ =~ s/^\s+|\s+$//g;
				print DATAOUT $_.";0:";
			}
		}
	}
	else
	{
		$sloCnt++;
		print DATAOUT $sloCnt.":";
		
		foreach(split(/\n/,$_))
		{
		if ($_ =~ m/\d\.\d.+\\/)
		{
				$_ =~ s/^.*?(\w+)[.!?]?\s*$/$1/;
				#$_ =~ split(/\\/,$_);
				print $_."\n";
		}
		}
	}
	print $sloCnt."\n";

}
[/more]