my ($whole,$fract) = ($hjd =~ /(\d+)(\.\d+)?/);