#!/usr/bin/perl

# Fix the extra digit in file names in the index file without affecting 
# spacing.

open (IN, "index.tab") || die "Could not open index for reading ($!).";
open (NEW, ">index.new") || die "Could not open new for writing ($!).";

while ($line=<IN>)
  { $line =~ s/(kp0505[0-9]{2}_)0([0-9]{3}\.[a-z]{3})/$1$2 /g; 
    $line =~ s/(KP0505[0-9]{2}_)0([0-9]{3}_FIT)/$1$2 /;
    printf NEW $line;
  }

close IN;
close NEW;