if ( @ips = $line =~ /[\d.]{7,15}/g ) {
    $client_ip{$ips[0]}{$iteration}++;
    . . .
}

##</code><code>##

$numrx = qr/[01]?\d\d?|2[0-4]\d|25[0-5]/;
$iprx = qr/($numrx\.){3}$numrx/;
if ( $line =~ /^(\s*($iprx):\d+\s*->){2}\s*$iprx/ ) {
   . . .
}

##</code><code>##

if ( $line =~ /^\s*($iprx):\d+\s*->\s*($iprx):\d+\s*->\s*($iprx)/ ) {