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

##</code><code>##

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