printf ((/e/?"%04.2e":"%05.3f")."\n", $number);