#!/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,$out) || die "can't open $out";
  while (<IN>) {
    chop ;
    if (!/<title/) { next ; }
#    print "$_\n";
    s%.*<title>%% ; s%</title>.*%% ;
    foreach $w (split) {
      print "$w $in now $out\n"; 
    }
  }
  close(IN) ;
#  system("mv $in $out") ;
#  system("mv $bak $in") ;
}