Help for this page

Select Code to Download

Select or download this

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