`perl -pi -e 's/2007\d\d\d\d\d\d/2007102901/' *.com`