Select Code to Download

@sorted_by_ip = sort {
    my @a = $a->{ip} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
...
    $a->{date} cmp $b->{date} ||
    $a->{time} cmp $b->{time} 
    } @ip_date_time;