if ($TEMP1 =~ /(A-[0-9]+-[0-9]+)/) {

##</code><code>##

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