##
int(abs($_[0]) * 10**$D + 0.5) % 10**($D-2)
##
##
use POSIX qw(fmod) ;
fmod(int(abs($_[0]) * 10**$D + 0.5), 10**($D-2))
##
##
$x = 0+sprintf('%0.6f', $x) ; # 6 decimal places
$x = 0+sprintf('%1.5e', $x) ; # 6 significant digits