Maybe a substitution:

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