if ($change[$i] =~ /\b$ip\b/){
my $seen = 1;
if ($seen && m{</stanza>}){
print $tl[0];
$seen = 0;
}