#!/usr/bin/perl

$files0 = `ls *desc`;
@files = split("\n", $files0);

foreach $file( @files) {

	if( $file =~ /(.*\.desc)/ ) {
		$newname = $1;
		system( "mv $file $newname.txt");
		print "moved $file to $newname.txt\n";
	}

}

exit( 0);