my $i = 1;
while (<DATA>) {
    ...
    s/\b(XP)\b/$1 . ' (' . $i++ . ')'/eg;
    print;
    }