my $var = sprintf ((/e/?"%04.2e":"%05.3f"), $number);