in reply to simplifying substitution

Since you are using at least Perl 5.10, you could do

s/  [0-9]{2}\K /\t\t/g

which retains everything before the \K.

In Section Seekers of Perl Wisdom