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