perl -pe 's/([0-9]{10})$/sprintf "%010d",$1-2/e'