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        
}