use strict;
my $cnt=0;

while(<DATA>){
	$_ =~s/<xxx>/++$cnt.$&/gie;
    print $_;
}
__DATA__
<xxx>...</xxx>
<p>...</p>
<xxx>...</xxx><xxx>...</xxx>
<p>...</p>