string $fuckUp[] = `ls -sn "*:*"`;

for($obj in $fuckUp)
{
	string $tokFuckUp[];
	tokenize $obj ":" $tokFuckUp;
	
	string $newName = ($tokFuckUp[0] + "_" + $tokFuckUp[1]);
	catch(`rename $obj $newName`);
}