#!/usr/bin/perl

@files = `ls -1 *html2` ;
chomp @files;


foreach my $filename (@files) {
	$newfilename = $filename ;
	$newfilename =~ s/html2$/src/;
	print "renaming ";
	print $filename;
	print " to ";
	print $newfilename;
	print "\n";
	system ("mv $filename $newfilename");

}
