#!/usr/bin/perl -w
use strict;
$_ = 'x' x 11;
my($x,$y) = \(substr($_,2,2), substr($_,5));
while(<DATA>){
    print $$x,$$y;
}
__END__
1996.40637
1996.41064
1996.41199
1996.41467
1996.41882