Select Code to Download

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

$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/ ) {
   . . .
}