... the increment of occurrence number is per line, how to make it per file or multipleline?

Move the  my $i = 1; statement to before the loop (untested):

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