while ($line=<iFile>){
	chomp $line;                                # Zeilenende entfernen
	my @arr = split(/\s*\S+:\s+sip:|@/,$line);  # Daten in Array zwischenspeichern
	shift @arr;                                 # Datum SIP-URI wegwerfen
	push @dataArray,@arr;	                    # Daten für spätere Verarbeitung speichern	
}