Select Code to Download

<stanza 12.34.56.78>
    sl1  this is my line
    sl2  justanotherline
</stanza>

while (@array){
        open ("VN", ">", "$array[0].tmp");
...
                        if ($change[$i] =~ /\b$ip\b/){
                        $change[$i + 1] = $nc ."\n";
}