String Perl

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