format file name where there have "("

format.sh

#!/bin/bash
(
IFS=$'\n'
for q in $(ls -p| grep /)
do
	cd $q
	perl-rename  's/.*?\(//' *
	perl-rename  's/\)//' *
	for i in $(ls)
	do
		num=$(echo $i | awk '{printf("%03d\n",$0)}')
		if [[ "$num" != "000" ]]; then
			peff=$(echo $i | cut -d "." -f2)
			mv -n $i $num.$peff
		fi
	done
cd ..
done
)