print s/^(\d\d)\d*\K/$1/r while <DATA>;