use strict;

foreach(<DATA>) { 
    my @test = split(/,/);
    my $date = $test[2];
    my $first_seen = $test[3];
    if ($first_seen = /(23\:\d{1,2}\:\d{1,2})/) {
         $first_seen = $1;
         $first_seen =~ s/23/00/i;
         my $delim = "/";
         warn $date;
         my ($day,$month,$year) = split($delim, $date);
         warn $day;
         $day++;
         my $new_day = join "/", $day,$month,$year;
         warn $new_day;
         ##splice(@test, 3, "$new_day");
    };
};

__DATA__
program,xx.xx.xx.xx,28/05/08,23:48:31,28/05/08,17:53,data