#!/usr/bin/perl

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

foreach $file( @files) {

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

}

exit( 0);