perl -e 'map( rename ($_, $_-9900), glob "222*"));'