myself I'd rewrite two of your "ifs."

next unless ($line =~ m@on $ipaddress@);
last if scalar(@matches) >= 2;
[download]

At least to my eye that's more readable.