Select Code to Download

use strict;

...
1996.41199
1996.41467
1996.41882

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