open(MSG_FILE, "$syslog_dir/$_/messages"); @msg_content = ; close MSG_FILE; # Read time of last entry in a file [think tail -n1] # and compare to current $msg_content[-1] =~ /((\d{1,2})\:(\d{2})\:(\d{2})){1}/; @timestamp = split(/:/, $1);