Help for this page
foreach $line (@connections) { if ($line =~ /^\s*(\d+\.\d+\.\d+\.\d+):\d+ ... $frontend{$3}{$iteration}++; } }