#!/usr/bin/perl

use warnings;
use strict;

my $dec = "0.99982928833";
my $sci = sprintf("%.11e", $dec);

print $sci;