perl -e 'foreach (<test*.u11>) {
	$new=$_; 
	$new =~ s/test//; 
	rename($_, $new); 
	print "$_\n";
}'
