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

  @arr = map {                                # in ein Array mappen
      s/:.+$//;                               # Alles vom : bis Zeilenende entfernen
      $_;                                     # Wert aus map weiterreichen
  } 
  @arr;                                       # altes Arrayinhalt

  push @dataArray,[ @arr ];                   # Daten für spätere Verarbeitung speichern        
}

print "Contact-Rufnummer,Contact-IP,To-Rufnummer,To-IP", "\n";
print "$_\n" for map { join ',',@$_ } @dataArray;