rename($_,substr("000$_",-7))