split /\./

'.' in a regular expression matches any single character, rather than the period character.

Please have a look through perlre.

Personally, I like to do:

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

-David