#!/usr/bin/perl -w
########################
# Modul Definition
#########################
use strict;
use DateTime;
##########################
# Parameter Definition
#########################
my $ct=1;
my $tstamp = DateTime->now->set_time_zone('Europe/Berlin');	# Find the Timestamp
my $mydate = $tstamp->ymd;
my $iFile	= "./workspace/Testfile.log";
my ($line,$info);
my (@dataArray,@Array2);
##########################
##########################
system("clear");

if ( -e $iFile ){
	print "$iFile existiert \n";
	open (iFile,"<$iFile") || die $!;
}
while ($line=<in>){
	@dataArray = split(/\s*\S+:\s+sip:|@/,$line);		# 
	shift (@dataArray);					# erstes Elemement aus Array löschen
#	print scalar(@dataArray);				# Ausgabe des Array-Inhaltes
	
}
print join("\n",@dataArray);					# Ausgabe des Array-Inhaltes