while ($_ = <DATA>) {
   $_ =~ s/\d\d(\d\d)\.(\d+)/$1$2/;
   print $_;
}