use strict; use warnings; my ($xml, $content, @xml); $xml = join '', ; while ($xml =~ m/(
.*?<\/details>)/sg) { $content = $1; next if $content !~ /
.+?<\/address>/; push @xml, $content; } $xml = "\n" . join("\n", map { " $_" } @xml) . "\n"; print $xml; __DATA__
johan
Langgt 23
---more info---
venu
storgatan 27
---more info---
kent
nygatan 46
---more info----
johan ece ---more info--