#!/usr/bin/perl

for ($i=1;$i<=33;$i++) {
  $i2 = sprintf("%02d",$i) ;
  $i3 = sprintf("%02d",$i+57) ;
  $in = "000/".$i2.".html" ;
  $bak = "000/".$i2.".html.bak" ;
  $out = "004/".$i3.".html" ;
  print "\nmv $in to $out\nmv $bak to $in\n"; 
  open(IN,$in) || die "can't open $in";
  while (<IN>) {
    chop ;
    if (!/<!--/) { next ; }
    print "Link $_\n";
  }
  close(IN) ;
  system("mv $in $out") ;
  system("mv $bak $in") ;
}