do { 
    use B;
    if ( not B::SVf_POK & B::svref_2object( \$val )->FLAGS or 
         -1 != index $val, 'e' ) { 
        $val = sprintf '%.4f', $val;
        $val =~ s/\.?0+$//
    }
    "$val"
}