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