Just in case the regex gets crazy on you, fall back to Text::CSV::Simple.

#!/usr/bin/perl

use strict;
use warnings;
use Text::CSV::Simple;
use Data::Dump qw(dump);

my $logfile = "/root/Desktop/ip.log";

my $parser = Text::CSV::Simple->new;
$parser->want_fields(2);

my @data = $parser->read_file($logfile);
print dump(@data);
[download]