in reply to Re^2: replace all but first
in thread replace all but first


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

[download]

 

In Section Seekers of Perl Wisdom