$phase = '0' . (($number =~ /(\..+)/) ? $1 : '');