$data =~ s{(<cnt>Germany</cnt>)}{$seen++?'<TAB>':$1}ge;