$hjd = 25445.3382;
@fields = split /./, $hjd;
print "$fields[1]\n"; # I expect to get '3382' I get a newline
print "$fields[0]\n"; # I expect to get '25445' I get a newline