@address = $whois =~ m/(?:\{section1\}(?:\{section[\d]+\})*)\n(?:\S*(? 0; --$c) { pop @address unless defined $address[$c - 1]; }