$ perl -Mstrict -wE 'my $avg = (1.10000E0 + 3.10000E0) / 2.; say sprintf("%E", $avg)'
2.100000E+00