#
#
#  writes DOS-Batch to rename file's oldname to newname
#  060329

my ( $oldname, $partname, $newname, $dirfile ) ;

$dirfile = "dir.txt" ;
system( "dir /b > $dirfile" ) ;
open( DF, "<$dirfile") or die "no $dirfile\n" ;
while(<DF>) {
   chomp;
   $oldname = $_ ;
   $oldname =~ /williamsburg\s(.)/ ;
   if ( !defined $1 )  { next; } 
#   $partname = $1 ;
#   print "P $partname "  ;
   s/williamsburg\s/USA_Williamsburg-2006_03_18-U/ ;
#   print "N $newname\n" ;
   $newname = $_ ;
#   $newname = $_ . $partname ;
   print "ren \"$oldname\" \"$newname\"\n"; 
}
close $dirfile ;
unlink $dirfile ;