String Perl

$value = 1234.56789;
print sprintf "%+.4e\n", $value;