My error was:

local $^I = '.bak';
while (<>) {
  m/^(\w+)\s+(\d+)$/;
  $2++;                ## this
[download]

I guess that would work if I used Tie::File or something like that. Thank you!