# This is the important line
# s/([\.\d]+)e([-+]?\d+)/$1*10**$2/egi

sub de_engineer {
    my $val = shift;
    $val =~ s/([\.\d]+)e([-+]?\d+)/$1*10**$2/egi; 
    return $val;
}