Если на входе XML правильней всего воспользоваться
соответствующим парсером.
Вот здесь хорошие примеры
На выходе из парсера будет хэш - останется поискать в нём ip адреса.
Ну а если неправильно и по-быстрому:
while (defined(my $line = $fh->getline())) {
while ( $line =~ m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})<\/ip>/g) {
print "$1\n";
}
}