perl -pe 's/ (\d\d)/sprintf(" %2.2i",$1-1)/e;'