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