$line =~ /^r\s(\w+)\s.*?(\d+\.\d+\.\d+\.\d+)\s\d+\s(\d+)/;
my $lefkada = $1;
my $ip = $2;
my $port = $3;
print "$lefkada - $ip - $port";

Wobei ich nicht weiß, was "lefkada" sein soll, und diesen Teil mal mit (\w+) erfasst habe.