in reply to Shortest way to replace a string

s/^(\d+)(\.00)[^\s]+/$1$2$2$2/g;

In Section Seekers of Perl Wisdom