perl -pi.bak -e 's/\d\d(\d\d)\.(\d{5})/$1$2/' somefile.txt