$DIR=".";
opendir CONCEPT, $DIR || die "no such dir";
while ($TEMP = readdir(CONCEPT))
{
	$TEMP1 = $TEMP;
	if ($TEMP1 =~ /(A-[0-9]+-[0-9]+)/) { 
		if (rename $TEMP, $TEMP1)
	 		{ print $TEMP1; }
		}
}