...
# Setup our IP matching regex
my $re_ip = qr/(\d+\.\d+\.\d+\.\d+):\d+/;
my $re_test = qr/^\s*$re_ip\s*->\s*$re_ip\s*->\s* $re_ip/x;
my $re_line = qr/ ^ \s* $re_ip \s* -> \s* $re_ip \s* -> \s* $re_ip /x;

...

# Reset data
my @connections = `bigpipe conn dump`;

...

foreach my $line (@connections) {
                 print "$line\n" if ($line =~ /$re_test/);
                 $vip{$2}{'conn_count'}++ if ($line =~ /$re_line/);
        }